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PEOPLE’S COMPUTER COMPANY 

is published 5 times during the schoo! 

year. Subscriptions begin with the 

first issue, October 1972. Ey EB 
Single subscriptions — $4 for 5 issues 

[$5 Canada and overseas] 


Group subscriptions, mailed all to the 

same address — 
10 or more $3.00 each Ce 
30 or more $2.50 each 
100 or more $2.00 each 


Subscription coupon on back cover 


Cover ant ly Marie Mancko reprinted cavrtery J Nasr NEWS © 1967 


WORKSHOPS IN COMPUTER SCIENCE 
!11!! FOR PCC SUBSCRIBERS ONLY rere! Instructors: ROBERT ALBRECHT, People’s Computer 
Company and LEROY FINKEL, Ravenswood High School 


Schedule: March 31—Apri! 1; 9 a.m, — 10 p.m. Saturday; 9 a.m. — 
6:30 p.m. Sunday; Lawrence Hall of Science, Berkeley campus 
Credit: Two quarter units in Computer Science, each course 


FOR A MERE P ITTANCEs WE WILL SEND YOU TAPES Fee: $65 each course, includes laboratory fee and some materials 
OF GAME=-PLAYING OR OTHER PROGRAMS THAT HAVE Enrollment is limited 
OR WILL APPEAR IN PCCe HERE ARE THE PRICES.~ For information telephone 642-1061 in Berkeley 


Computers in the Classroom X 402A (2) 


An intensive “hands on” introduction,to the use of calculators 
and computers in elementary and secondary school education. 


*PROGRAM* *xISSUE + PAGE* *PRICE* 


NUMBER OCT 725 PG 8 $1 FOR BOTH Ke 
LETTER OCT 725 PG 11 Participants use programmable calculators and learn the pro- 
gramming language BASIC, using both timesharing terminals 
and small computers. Methods for effectively using computers 
STARS DEC 72s PG 3 $1 in the eae and analysis of available hatlwarer iagttg 
tional materials, computer education programs, and sources 
MELODY DEC 725 PG 17 $1 of further information. The course is conducted as an open 
classroom with activity centers for mathematics, science, 
TRAP FEB 73s PG 8 $1 business education, and social science teachers. It spans all 
grade levels — elementary through college. No previous pro- 
CHOMP FEB 735 PG 9 $1 gramming or data processing knowledge is necessary. 
MUGWUMP APR 735 PG 3 $1 Computers in the Classroom: 
Individualized Instruction X 402B (2) 
HURKLE APR 73s PG 22 $1 This course is a continuation of Computers in the Classroom 
X 402A, and it gives participants the opportunity to increase 
REVERSE NEXT ISSUE $1 their computer problem-solving skills. The course is run con- 
currently with X 402A, which is a prerequisite. 
‘kx P] *K Games Computers Play X 407 (2) 
* MIN muy ORDER $2.00 * Spend a weekend matching wits with a computer. Participants 
*** ate play computer games and explore both real life and ‘‘worlds 
well, nobody's of if’ through the medium of computer simulation. Games of 
fect skill, games of chance, and games to learn by. Computing 
equipment is available throughout the course. No previous 


computer experience is required. The course is run concur- 


!!!!! FOR PCC SUBSCRIBERS ONLY !!!!! rently with Computers in the Classroom X 402A and B. 


LEARNING FAIRS and FUTURE FESTIVALS 


The story starts like this: 


It happened at Peninsula School, a forty-seven-year-old 
family-staff-owned cooperative, the “oldest free school 


Jin the country,” sit‘of the first New Schools Conference — 


in 1969. = 

What was it? Fifteen “workshops and playshops” — 
Bead Game Music, Kids Teaching Kids, GestaltSmorgas- 
bord... — and forty ongoing events — Mobile Solar 
Sculpture, People’s Computer Center, Tree Loom, the 
Alexander Technique.... All spread over two days 
and sprinkled among the oak trees of the stx-acre school 
site and the rooms within Peninsula’s main building, a 
green Victorian mansion. “Come together as participators/ 
innovators,” read the announcement. 


and ends like this: 


While Iam still cutting up bookshelves, the fair comes 
to its close. [am reluctant to leave it, and J realize 
why: I have reopened doors into ways of learning 
that I had shut or that had been closed upon me years 
ago. 
For lama product of that educational process by 
which we are systematically and deliberately weaned 
away from what Jerome Bruner called the “left-handed” 
(visual, intuitive, imaginative) and toward the “right- 
handed” (verbal, rational, logical), that process which 
separates one kind of learning from another and rates 
each in terms of its usefulness to society and not to 
the indwidual. 

That may be changing now in many schools for 
many younger children. But we adults and older 
children need support, encouragement, what Barney 
Young called “loosening up,” to open the doors 
again—to realize that a variety of “life games” are 
equally important parts of our education. And that 
sort of encouragement a “learning fair” can provide. 
At Peninsula’s fair the children were there as our 
guides, making creativity look natural and easy as 
pie. We learned from them that weekend. But for 


me it was only a start. 


37-41. 


from “Learning Fair” by Susan Sands, Saturday 
Review of Education, January 1973, pages 


Saturday Review of Education, Box 2043 
Rock Island, Illinois 61207 
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If you missed the Super Ecstatic Completely Credible 
Learning Far at Peninsula School last October — you 
can still make one of these this spring. 


TO TOUCH TOMORROW: FUTURE FARE 


“The merit of the future is that it is the area in which 
we can exert our will.” 


Bertrand de Jouvenal 


If you feel with de Jouvenal that we dont have to 
accept the future as “fixed,” then join us on March 
30-31 and experience with us some of the exciting 
(and frightening) developments which are shaping 
our futures, Experience with us also the possibility 
of creating alternative futures to “‘the future” that 
you might feel is being imposed on you. 


We begin on Friday afternoon, March 30, with a series 
of films to be shown in Olney Hall. Among the films 
you will see are: 
“The World of Future Shock: Crisis in the 800th Life- 
time’ in which Alvin Tofler, author of Future Shock, 


examines the concept of “future shock” and the stress 
placed on individuals by a society in constant flux. 


*The Family of the Future’ looks at 3 different family 
lifestyles today which may be typical styles for tomor- 
row. The film is narrated by Margaret Mead. 


There willbe many others. These films will also be 
shown Saturday. 


Friday evening at 8:00 PM in Olney Hall, Arthur C. 
Clarke, author of Profiles of the Future and many 
other books about futures, will speak on “The Year 
2001 and Beyond.” 


Saturday, March 31, ts Future Fare Day. Our environ- 
ment will be Harlan Center and its adjacent outside 
spaces, Come play with a computer from the People’s 
Computer Co.; imagine with Aaron Hillman youre 
Lost in Space; participate in The Future State of the 
Nation with Paul Twelker and Ken Layden; join Gloria 
Loventhal and her elementary school children in their 
“School 2000”; build a dome with Toni Ricci; eat with 
the One World Kamily Commune; ponder the prospects 
of Immortality with Chad Euerone. These are just 

a sampling of the exciting events in store for you. So 
come, Touch Tomorrow. 
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ALTERNATIVES LEARNING FESTIVAL 
A CELEBRATION 


We at Webster College, in conjunction with the alter- 
native schools in St. Louts, will be sponsoring a 
National Festival on Alternatives in Learning, to be 
held in St. Louis on May 3-6. Our hopes for holding 
such a festival are many; however, our specific aims 
are to learn more about ways we can humanize the 
diverse educational needs of an ever-changing and 
increasingly complex society. 


The scope of ALF will be between 5,000-—10,000 
people from all over the nation. Some of the better 
known speakers so far are: Swight Allen, University 
of Massachusetts School of Education; Nate Blackman, 
Principal of Chicago Metro Alternative High School; 
Don Glines, author of Creating Humane Schools; 
Joh Kozol, author of Free Schools; and Don Moore, 
Midwest Center for New Schools. 


ALF will revolve around a “Learning Bazaar,” to be 
run by teachers, administrators, parents, students, and 
others involved in the creative learning experience. 


Booths will focus on individualized experiencing... 


u orkshops will focus on group experience - - doing, 
thinking, creating... 


Anyone interested in presenting a workshop, group 
session, learning shop, or other alternative involvement, 
at the FESTIVAL, or anyone desiring additional info, 
please call Webster College, (314)968-0500, ext. 400, 


Webster College 
470 East Lockwood 
St. Louis, Mo. 63119 
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for more info, contact Ms. Sydney Goldstein 
Director of Public Events 


College of Marin 
Kentfield, CA. 94904 
(415)454-3962 
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Recently | was modifyin na 

ig a program We had on an 
HP 2000F system. A simplified version of the pro- 
gram would look like this: 


139 REm 
150 REM 
398 REM 
350 REM 
400 REM 
459 REM 
S60 REM 
5509 END 


YAUBON— 


| wanted to move lines 400 and 450 to before Line 
300 so that the program would look like this: 


1060 REM 
150 REM 
200 REm 
250 REM 
398 REM 
350 REM 
S@8 REM 
$58 END 


NVHOKDUN— 


So | innocently typed 


REN - 2893, S8s 4095 458 


(i.e., “Renumber Lines 400 through 450 by 50's, 
starting at Line 200” for those of you who are 
unfamiliar with HP BASIC.) 


And the computer typed back 


RENUMBER SEQUENCE OVERFLOW/OVERLAP 


(Whatever that means) | assumed that the computer 
was refusing to perform this trivial operation and 
proceeded to do it the hard way. Here’s how it looks 
(assume the program's name is PROG). 


GET-PROG 
NAM=T1 
DEL-309,558 
SAV 
GET-PROG 
NAM=-T2 
DEL-1935350 
DEL-S00,55a 
REN~-2065505 408,450 
SAV 
GET-PROG 
NAM-T3 
DEL~-1005153 
DEL-4804450 
SAV 

SCR 
NAM-PROG 
APP-T1 
APP-T2 
APP-T3 
KIL-Tl 
KIL-T2 
KIL-T3 
KIL=PROG 
SAV 


Come on HP, that’s 27 lines | had to type instead of 
spending my time on something useful. Not only that, 
it could have been done with just one command, if 
HP's software was written properly to begin with. 


Some day computer manufacturers are going to learn 
that computers are for people to use, and not the 
other way around. 


That day will come only when computer users take it 
upon themselves to pull themselves out of their 
apathetic morass of ignorance of what computers 
could be doing for them, and demand their rights as 
consumers. If you read the label on a 25¢ can of soup 


why not read the “label” on a $100,000.00 computer 
system 


P.S. It matters not to the poor user if there is some 


undocumented “‘secret’’ way to do what he or she 
Want. 


A graffiti found at Resource 1 is quite lucid on this 
point: 


“WE JoB Is NoT 


100 REM *¢* MUGWUMP - A HIDE AND SEEK GAME 
110 REM eee PEGPLE*S COHPUTER COMPANY» MENLO PARK CA 
120 RANDOM 


130 REM 9#* GeGRID SIZE N=NUMBER GF GUESSES ALLOWE! 
140 LET Galo 
150 LET Nes 


160 PRINT “DG Y@U WANT THE RULES (I=YES O=nG)™s 


— MUGWUMP 


CWY CBY CHI CHI OQHYI LHI CY 


q 


SZ eee 
[J ae 
Pea a | 


“170 «INPUT 

i180 IF Z< 
190 REM se 
200 PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
260 PRINT 
PRINT 
300 PRINT 
310 PRINT 
320 PRINT 
330 PRINT 
340 KEM ee 
350 LET A» 
360 LET Be 
370 PRINT 
380 PRINT 
390 REM ¢* 
400 FOR T= 
410 PRINT 
420 PRINT 
430 INPUT 
440 REM ¢e 
450 IF Xx < 
460 IF ¥ < 
A470 PRINT 
480 PRINT 
490 PRINT 
S0O Gets 3 
S10 REHM ee 
S20 LET D= 
530 REM ee 
540 ‘LET De 
550 PRINT 
560 NEXT T 
570 REM se 
580 PRINT 
590 PRINT 
600 PRINT 
610 PRINT 
620 PRINT 
630 GeTs 3 
640 END 


z 

» 1 THEN 350 

'* RULES IN LINES 200 THRU 330 

“A MUGWUMP IS HIDING IN A™3Gs"BY"sGs"GRID. TRY Te™ 
“FIND HIM BY GUESSING HIS GRIDPOINT- HOMEBASE IS™ 
“GRIDP@INT 020 AND A GUESS IS A PAIR OF WHELE™ 
“NUMBERS (O T8'"3G-13") SEPARATED BY A COMMA. THE FIRST™ 
“NUMBER IS THE DISTANCE TS THE RIGHT OF HOMEBASE” 
“AND THE SECOND NUMBER IS THE DISTANCE ABOVE THE™ 
“HOMEBASE. FOR EXAMPLE. IF YGU THINK THE MUGWUMP™ 
“IS HIDING 8 UNITS T@ THE RIGHT GF HGMEBASE AND™™ 
"3 UNITS ABGVE HOMEBASE, THEN ENTER 83 AS YOUR” 
"GUESS AND PRESS THE *RETURN* KEY.” ft 


"YOU GET" JNS"GUESSES. AFTER EACH GUESS,» I WILL™ 


“TELL YOU HOW FAR CIN A DIRECT LINE) YOU ARE FROM™ 
“THE HUGWUMP. ™ 


*® HIDE MUGWUMP AT RAND@M GRIDPGINT AsB 
INTCG®RNDCO)) x 
INTCG*RND(O)) 


“MUGWUMP IS HIDING. YOU GET™sNs"'GUESSES.-™ 
* N GUESSES ALLOWED - LINES 400 THRU S60" 
1 TON 


SuHAT IS Y@UR GUESS") 

’ 

IF MUGWUHKP NOT FOUND G6 Te LINE 500 
> A THEN 520 

> B THEN 520 

“Y@U FOUND HIM IN"sTs"GUESSESII1™ 
“LET'S PLAY AGAIN.” 


so 

* DeSTRAIGHTLINE DISTANCE TQ MUGWUMP 
SORC(X-Ad12¢CY-Bd 12) 

* THEN WE RG@UND D T@ BNE DECIMAL PLACE 
INTC10#D)710 

"YSU ARE“sDs"UNITS FROM THE MUGWUMP.™ 


* MUGWUHP NOT FOUND IN N GUESSES 


"SORRYs THAT'S™sSNs"1KIES.” 


“MUGKUMP IS AT GRIDPOINT “sAs™s"3B 
"LET*S PLAY AGAIN." 


50 Ves rene 
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Product 


Countach Project Solo, Grp Sqn Departed, 


In (eres 


Luts wapird) be Pejed Solo MAL #o7z01. 


Univiendils ef Pitts buch 1sz13. 


“buy siRevee oD 


CREATIVE 
PUBLICATIONS 


P.O. BOX 10328 
PALO ALTO, CALIFORNIA 94303 


Business Office — (415) 968-3977 
Development and Teaching Center — (415) 968-1101 


TRANSPARENT GRIDS (INCH & CM) 


Flexible, transparent acetate grids for many 
different purposes. Measure area by placing 
grid over plane figure. Put blocks on top of 
grid. Demonstrate fractions, decimals, area 
8B faa relationships on the overhead projector. Make 
a charts, graphs, etc.—then wipe them clean! 

[_] Two kinds of grids available—10” x 10" 

|_} ruled in inches or 25 cm x 25 cm ruled in 

|} centimeters, 


B 36500 Transparent Cm Grids — 
(PKgxOfsO) ie essence $3.25 
37000 ~— Transparent Inch Grids — 
(Pkg.of 10)......, $3.25 
36900 NEW MATH RULE-INDIVIDUAL .. ...... . § 35 


Durable four-in-one ruler made of plastic. Has four scales — two on 


each side — 
calibrations. 


1/10", 1/16", metric and number line. Accurate, easy-to-read 


Chay. grid size Gin bin, 140 
eee? 
Chere anh =f Guess, N 
ISo. 


O Mores Gussen.. 


34100 


VIS-A-VIS PENS 


Visual aid pens for overhead pro- 


jector transparencies which write 
smoothly and evenly on all acetates. 
Bright, transparent colors do not change 
during use. Easy to clean from 
acetates; washable from hands and 
clothing; non-toxic and odorless. 
Available in Pocket Set (one each of 
the four colors — black, red, blue and 
green) or in boxes of a dozen in black 
only. 


38450 VIS-A-VIS PENS 
Pocket Set (4) 
Dozen black . 


$2.40 
$6.00 


CIRCLE MASTER COMPASS 
Circle Master Compass—Individual 


piietecrneroUTenitt ond How: 
ard streets looks Uke any 


ities, Specialized 
‘know-how and sophisticated 


Reprinted from WORKFORCE (January and February, ~ 
1973), published by Vocations for Social Change, Box 13, 
Canyon, CA.94516. VSC isa tax-exempt, anti-profit 
collective subsisting entirely on your donations. 


Pam Hardt and Bernard Greening for tho 
Resource One Collective, 

Resource One is the only grassroots community 
its own large-capacity computor system, Thay 


are in the process of designing programs that 
they hope will be useful to all kinds of non- 


technology that are coming profit community groups working for social 
together inanunprecedented Chango, j 


pew way. 
I had come expecting to 
meet a few artists sharing 
studio space in a charateris- 
tie South of Market garage- 
loft. “ "* contains a sirea- 
ble amount 

used 


and other artists and 


radio studios; film, photo, 
and video processing labs; a 
computerized data bank, ex- 
perimental free school and 
fessionally-manned clin- 
ES and a staggering varicty 
of other, continually evolving 
and overlapping activities. 
ACTIVITIES 

These activities are the 
work of some 200 people and 
€0 organizations who are in- 
volved in ‘One’ on aregular 
basis, and who range from 
students and recent universi- 
ty graduates and drop-outs, 
to PhDs, electronics special- 
ists and other highly trained 
professionaleé whohave 
pulled out of the normal 
stream of economic life to 
foin in a cooperative sharing 
of talent, experience and 
physical resources. They 
bring with them not only 
knowledge and skill, bot of- 
ten costly and highly special- 
fzed_ technological hardware 
as well 

A year and a half old, 
"One”’ is the senior member 
of a loose network of similar 
Warehouse “projects that 
has already grown to include 
a@ Jarger “‘Artaud,”’ at 17th 
and Alabama streets, and 
several smaller complexes. 
In the works are others in 
San Francisco and the East 
Bay. 

The idea for “One” origi- 
nated with Ralph Scott, an 
architect and engineer by 
training who was then shar- 
ing space with a dozen other 
people in smaller warehouse 
quarters. - 

At its most practical level, 


Scott explained, the plan 
grew out of the fact that 
there were “a lot of people 
whio needed to find an alter 
native way to deal with eco 
nomic problems, such as lou 
income, or unwillingness to 
sacrifice their integrity for a 
reasonable salary. There are 
great numbers of poeple to- 
day who have talent, éxperi- 
ence and a command of 
money, but refuse to pay the 
price. There are others — 
people with master’s cegrces 
and PhDs — who simply 
can't find jobs.” 


ISOLATION 


“A second factor is isola- 
tion, which makes poeple liv- 
ing in a city relntively incf- 
fective. People live ina high- 
ly compartmentalized world, 
with no flow or continuity be- 
tween one activity and anoth- 
er. Many creative people are 
victimized by the negative 
aspects of living In an urban 
environment and are unable 
to take advantage of its posi- 
tive elements, such asstimu- 
lation and sharing ideas. 
Soine can't pay to keep a 
phone installed to call across 
the city and find out whata 
friend is doing.” 

Finally, Scott pointed out, 
“there i5 an aura of elitism. 
and even mysticism, that 


surrounds the world of tech- 


From its inception, Resource One has boon 
housed in Projoct Ono, San Francisco's first 
comunity in a warchouse., The first task of 


of space that is the four of us who developed Resource One was 
as studios-by to first help devolop Project One from June '70- 
painters, sculptors, ceram- June '71, 


In midsummer, 1971, Transamerica Computer 
Co. was just a number in the telephone book. A, 
man wo reached in thoir public relations dept. 1 
said TA had “a warehouse full of computers," 
which turned out to mean throc Xerox Data 
Systems 940 computers returned by their loasa Ve. 
customers, (The XDS-940 is a timesharing computor, 


that can handlo many usors simultancouoly overtly 


Separate tolophone linos, This feature is ideal 
for us because it allows community groups to ¢)\. 
use the computer from thoir own location. Tho 
only equipment needed is a $45/month terminal.) 
TA was xrcecoptive bocause wo showod them the " 
potential for relating to many groups in San 
Francisco and therefore they could get good p 
licity for making it all possible. 


TA was also having trouble getting rid of 
their 940's because they originally cost $800,000 
seven years ago and are “second gencration.” 
Customers could now buy faster “third gonoration" 
machines for half that cost. ‘In September 1970, 
the deal with TA was approved by their top 
management, 


In November 1971, we rocioved $10,000 from 
the Stern Family Foundation, It wasn't easy to 
get. Resource One had a corporato identity 
(we took over the tax-exempt corporation fron 
the old San Francisco Switchboard) and a 
promised computer, but no cperating track-record. 
We were able to use the efrorts of the’ Ecos 
Project--which was also helping other warchouse 
communities develop—-and the demonstrable cred- 


ibility of the 150 people building; a living- 


working enyironment for themselves at Project One 
to show that wo were really serious and had a 
chance to succeed. Ecos initiated the Storn con~ 
tact, and convinced them that technology io an 
Aitegral part of any now, viable urban cnviron- 
ment. Stesn granted a total of $25,000, which wo 
Split) Ecos taking $15,000 cnd Resource One 
910,000. 


The money from Stern allowed us to begin 
the design and construction of the machine room, 
The computer needed a dust free, air-conditioned 
environment. We wanted it to be a visually 
accessible yot flexible shell. With the help of 
two architects in Ecos, wa finally drew up plans 
for a sheetrock structure with Lexan (a fire- 
retardant plastic) windows. 


Toward the end of January, 1972, the machine 
room was under way and we were down to $4,000 
which had to be’ spent soon, We had been con- 
tacting and building relationships with founda- 
tions for months. We only received responses 
from foundations with whom we managed face-to- 
face contact with the director. So far, only 
those who have also seen us at work have come 
through. A problem has been that the foundations 
we encountered did not have the technical 
expertise to evaluate our project; they seemed 
threatened by the quantum jump from simple 
telephone switchboards to computerized in- 
formation networks. However, we did convince 
tiic people of the Whole Earth Catalogue Community 
Fund to lend us $8,000 "for a month" to tide 
us cver until the other grants came in, 


By May, we had used most of tho WEC monay, 
wien two foundations each announced grants of 


nology, and many of thearts, $25,000 contingent on our raising a total of 
i ! % F 
beratise so many people lack $199,000, We liad not expected the contingency 
access lo equipment, training ; ; 
god other resources."* part, but resolved to use it as a levor in 
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INTERNUPT ARTICLE INTE RA T PT Sou anor ee ae 


AT A CPP MEETING IN NEw YORK LAST MARCH (REPORT * 
INTERRUPT 15) THE TOPIC UtTHE PUSITIVe USLS OF COUPUTERS=LeRE 
THERE ANY\"! HAS DISCUSSED. ThE PREVAILING SPINISN SEEMED TO BE 
WELLs PAYDE 59, POTENTIALLY, FUT AST YETe RESSURCE BNE IS DBING 


ALL IT CAN T® CREATE SEALITY FROM WHATEVER POTENTIAL THERE [Se 
RESOURCE BHE IS A COLLECTIVE OF PEOPLE FROM DISPARATE 
OF 
eE'RE TRYING TO HELP 


EVE THAT TECHNSLAG 
SOCIAL CHANGE WHEN CONTRALLED BY THE PERRO ERE CeeS SATAY INGETOE 
THEM BECOME AVAILABLE 18 ALL PEOPLE, AAD TO ENCOURAGE AND ASSIST 
TRE DEVELOPMENT 6F WAYS THESE TS8OLS CAN IMPROVE ALL OUR LIVESs 

SUR PRINCIPAL TESL AT PRESENT IS An XDS=940 CBMPUT 
MEDIUY SCALE, SECPND-GENERATION TIMES JARING HXCHINES WHORE: CAPABILITIES 
SEEM mELL SUITED TE OUR PURPOSES BECAUSE OF THE 9840'S ABILITY T8 


INTERACT KITH A LARGE NUMAE? SF INDIVIDUA R 
(QVER TELEPHONE LINES) AND INEXPENSIVELY*” Baoe Sateurnn fouuec TANECUSCY 


SOME 6F BUR PRIMARY PREJECTS ARE THE BL N 
SYSTEY GEAREO T8 THE NEEDS OF NON-ESTASLISHPENT REN RON Soa RENAL 
(SHITCHBDARCS, HOTLINES? FTC.) ENABLING THEM TO CREATE AND SHARE 
LARGE CATA BASESs THE ASSISTANCE BF VARIGUS GRASSROBTS POLITICAL 
AND ECANOKIC 2ESEARCH PROJECTS AIMED AT COMMUNITY SRGANIZINGs THE 
CrEAP PROOUCTION OF MAILING LISTS, A COMMUNITY MEDICAL CLINIC INFORMATION 
SYSTEM, A PROGRAM OF COMPUICR EDUCATION AND DEMYSTIFICATION FOR 
THE GENERAL PUALICy AND GENERALLY RAISING THE LEVEL OF COMMUNICATION 
AND COPPESATION AMENG DIFFERENT COMMUNITY GROUPS. 


RESAURCE SNE'S ROBIS GO SACK 19 BERKELEY DURING THE 


CAMBBDIA CRISIS 8F “AY, 1979s A GROUP OF COMPUTER PEOPR: 
THERE GOT TOGETHER, LIKE OTHERS, AND TALKED @F THEIR DREENCHARCHENT 
WITs WOW THEIR SKILLS NERF CESTINED F9R USE IN THE SYSTEM: THEY 


FANTASIZED ABRUT USING COMPUTERS FOR B8UTEDING box} . 

AND SEVERAL MS&NTHS LATER AERE ATTRACTED TOFEREGE CONC OTN eee 
SnHERE OTHER TECHNGLOGICALLY=8RIENTED PEBPLE, AS KELL AS ARTISTS AND s 
EX=PROFESSTONALS @F ALL TYPES, WERE GATHERING T@ TRY GUT A NEW CONCEPT 
SF INTEGRATING THEIR SKILLS AND KERK WITH THE REST 8F THEIR LIVES. 


PROJECT S8NE (8R '"ONE'1) WAS A VACANT 5S=STARY & 
BUILOING IN DOWNTOWN SAN FRANCISC9--54,00C0 SQUARE FEET GF GARE, 
COLO CONCRETE, WHICH HAS SINCE BEEN TRANSFORMED INTO AN IMAGINATIVE 
WARREN CF '*SPACES'' IN WHICH 90 PEOPLE LIVE AND 150 PE6PLE WSRK ON 
A WIDE VARIETY OF PROUECTS. RESIDES RESOURCE SNE, THERE ARE AN 
EXPERIMENTAL HIGH SCHDOL, A VIDEGTAPE-PROOCUCING GROUP) MUSIC AND 
RADIO: RECBROING/PRACTICE STUDI9S» A FILM PROCESSING LAB, THEATER 
REHEARSAL SPACE, AND DFFICE AND/OR LIVING SPACE FXR THE NORTHERN 
CALIFORNIA Hed. CF VVAny A RADICAL HELFARE DEPARTMENT WORKERS! 
UNION, A COUNSELING CENTERs AND NUMEROUS ART AND CRAFT PES@PLE, 


NBNE'St! SOCIAL AND PHYSICAL ENVIRONMENT WAS BUILT 

COBPreTELYcBy 13S BEREPASY 18 THEIR Oan SPECIFICAT1ONSo AND 

XN He ROCESS HEY SARED THEIR TSSLs SK D 
AS ONLY PEQFLP WHO MUST DEPEND ON EAGILATOERCCAN SS Aca g een Ss  LOEAS 
CS8LLECTIVE HAS BEEN FS34ED TQ FURTHER DEVEL OP AND PROFIT FR 

LLECT E S24ED u ER DEVE i b OM NEKLY- 
ACSUIRED CONSTRUCTION S<ILLS+ THE CB4YONT TY. 1S ''RUN'! BY UNAN THOUS 
CANSENSUSS DFCISIONS AnE MACE AT %=EKLY MEETINGS.» 


THE FIRST YEAR 8F 'tgNetr w A WEES = 2 
SALY PAM HARDT FRA“ THE ORIGINAL EPR CRT CC HN Caos PROCESS 
CRYPUTE? MANUFACTURERS §N THE PHANG TRYING TO LAN 
A OSHNATIGN BF A MINT =C8MPUTER, WHICH CAULC EE TAKEN AR 
FOR OF“@NSTRATIBNS AND EDUCATIBNAL EXP oSUSE. ‘ 
ee (UNSER F fT!) RAS THE FIRST BITE. 
N A *AREMBUSE, RFTURN=O FROM LEAS ECAUS R 
BY NEKER FACHINESs ALTHOUGH ThE SN OTTStS TEC Hee oN eaceD 
COMMERCIAL TISESHARING SERVICE COMPANIES, THERE ARE FASTER, CHEAPER 
ake Rees RACHINES AVAILABLE nHICH MAKES THE 940 UNATTRACTIVE 

hE an 4 t 3 - x 

TA RESPONDED TS ThE IGEA TT ORE “1CBSOLETE!! COMFERCIALLY« 
5F USING & CO*PLTER DONATED BY THEM F 
NETXOS< TrAT }SULC TIE ALT 
ESTAGLISHED SPCIAL SERVICE 
PUBLICITY POTENTIAL FOR TAs 


“HICH LEFT 
PAM WAS CALLING 


SUND COMMUNITIES 
TRANSAMERICA COMPUTER 
TA HAD 3 940'S SITTING YNUSED 


8R AN INFERMATIBN/REFERRAL 
ERNATIVE GROUPS (SHITCH33ARDS) INTO 
AGENCIES (IA\FGRMATIBNALLY), WITH G8SD 


SO, IN SEPTEMBER 1571 KE HAD A COMPUTER, BUT NE MONEY 

NB SOFTWARE, NB 174 EGUIPYERT, NO PLACE T@ INSTALL THE COMPUTER, 

NQ GEVELOPES ‘'tPROGRAM!! OF KEAT TG D8, AND VERY FEW COMMITTED PEOPLE. 
WE O1Ms HONEVE, HAVE THE SUPPORT OF OTHER MEMBERS OF '!ONE!!=={N 
PARTICULAR THE ECOS PREJECT) WITH dHOY WE PRESENTED A JOINT 

FENDING PROPOSAL T8 THE STERN FOUNDATION sHICH NETTED $10,000. 
USING THIS: RAKEY Te BUILD FHE CSMPUTER ENVIRUAMENT (35,000 WORTH), 
fay REST AND TELEPHGNE BILLS (NB SALARIES)» WE DEVEL@PED A PROPBSAL 
OR A FULL-SCALE COMMUNITY CB8FPUTER CENTER WITH A SUOGET OF 

$100,0C) FOR ITS FIRST YEAR. IT T@OK US A YEAR BF STEADY 
FUNORAISING T9 QAISE THE MANEY, DURING HHICH TIME THE CEMPUTER WAS 
INSTALLED (AT A TATAL COST OF $790), AND a— BEGAN T@ LEARN ABD0UT OUR 
SPERATING SYSTEM, WHICH NGNE SF US HAD SEEN BEFOREs 


PETER DEUTSCH B°0UGHT UP THE APERATING SYSTEM (KHICH 
HE HAC ARITTEN 3 YEARS SEFCRE), DONATING ‘HIS TIME, AND FRED WRIGHT 
FRQM ThE STANFORD ARTIFICIAL INTELLIGEACE PROJECT HELPED 8UR RESIDENT 
HARDWARE PERSON, LEE FELSENSTEINs GET CVERYTHING WORKINGe THE LAST 
MAJBRK CONTEMPLATED SYSTEMS PR®JECT="A RETRIEVAL SYSTE“=-IS NOX BEING 
IPPLEMENTED BY BART BERGER, BERNARD G2ZENING AND JOHN CGBNEY OF 8UR 
STAFF, WITH TH= HELP AF ROBERT SHAPIRG GF META INFORMATION APPLICATI6NS 
IN CAYORIDGE (HE CESIGNEO JT FOR THE PLP=10)5 PAUL HECKEL, WHO 
WERKS WITH DEUTSCH AT XERAX PARC» HAS HELPED US GENERALLY TS ACQUIRE 
NEEDED HARDWARE AND SOFTWARE 


BY APRIL» ALL SF OUR SYSTEMS (INCLUDING UNE 18 PR 
aeons Th OUTPATIENT CLINICS) WILL B= FULLY BPERATIONAt oon Pern 
WILL HAVE GEGUY ACCEPTING INPUT OF SEVERAL LANGE DATA EA 
INFORYATION FS2 ShITC=5UARCS AND OTHER PEOPLE-9RIENTEO PED TAMSENBEIe SUES 
GRAPHIC INFORMATIUN AND SUCH FOR RESEARCH PRBUECTS, AND "TUSEFUL CONTACT!) 
FILES FOR A HOPEFULLY LARGE NUMBER OF COMMUNITY GROUPS. THE ONLY 
Roe. IMPEDIMENT TA INCLUDING SOME NATIUNAL APPLICATIA8NS OF THE 
RETTIEVAL SYSTEM IS THE COST “F TELEPHONE CUNTACT. 
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grants. Fortunately, we 
‘tributions of $5,000 from 

ch enabled us to last until the 
the rest of our funding came through. 


_ In everything olse, we had sought the help 

_ o£ “experts” but wound up doing most of the 

actual work ourselyes. Wo were, however, vory 

lucky to find an experienced person in Los 

Angeles who brought up the machine in three 

days for a total cost of $600. Then Peter 

Deutsch, who wrote an operating system for tho 

_ 940 several yoars ago and now does research for 
Xerox, put the “software” into operation by con- 

tributing his time for several weeks, 


During the summer, the Resource One staff 
seemed to stabilize to one electronics engineer, 
‘4 programmers, 2 electronic apprentices, and an 
accountant with business management experience. 
- Internally, we had to fight people's tendency to 

_ define themselves by their acquired specialities 
- and we had to develop some common vocabulary to 
be mutually understood. Dealing with people's 
professional conditioning is a day-to-day pro- 
cess which continues while we aro developing our 
two major software systems; an information 
retrieval system and a medical statistical and 
reporting system, 


The information retrieval system allows a data 
base, such as tho community service information 
held by switchboards to be developed, easily 
updated, redrcanged, and printed by categories. 
The system is designed to be used by the non- 
Computer professional, who sees the computer as 
a tool in his/her work. And, it can alleyiate 
the six month research time spent putting to- 
gether essentially out-of-date directories, and 
can be used for several purposes, including 
power structure research, listing of referral 
information for groups which are in contact 
with people who need it, and other kinds of = 
information storage. The system was designed by 
' Robert Shapiro of Meta Information Applications. 
He is helping us implement the system, which 
should be completed by March, 1973. 


The medical system will provide reporting and 
in-house statistical work for the 0,5.0./H.E.W. 
funded health care centers. They have earmarked 
data processing funds and, generally, are not 
getting service comparable to the cost they 
are paying. Because we are local, we can 
provide more immediate reporting and are willing 
to tailor the system to suit health care center's 
Particular needs, Selling this system can 
Provide us with enough income to handle the 
Statistical needs of tha free clinic, which 
could not afford to buy data-processing services, 


We will shortly offer a system for producing 
Statistical tables describing a clinic's 
activities. Clinics will be able to usa these 
reports to satisfy the requirements of their gov- 
ernment grants. This system is intended to 
Produce substantial revenues for Resource 
One--it may turn out to be our main bread and 
butter—but more important, it will allow us to 
develop other, perhaps more useful informational 
tools for the clinics which otherwise couldn't 
afford to pay for it, 


In addition to the two soft-ware systems, we 
are developing a community education program, 
Using the computer and other media, such as video 
tape, we want to explore how computers are used 
in America, how their usage affects individuals, 
other possible usés of Computers, and how 
computers integrate with other communication and 
transportation technology. Through our com- 
munity education program, we hope to reach 
large numbers of people. 


We are well under way towards making the 
computer we-have available to community groups in 
the Bay Area. But, Resource One will continue 
to be seen as an odd or mysterious creation 
without broad implications unless technical 
people (architects, engineers, biologists, etc.) 
commit themselves to expanding and redefining the 
usage of their skills and the redistribution 
of control over technological hardware in con- 
junction with communities of people who are try- 
ing to generate change, 


For more information CONTACT- Pam Hardt o8 
Bernard Greening, c/o Resource One, 1380 
Howard St., San Francisco, CA 94103 
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groups. 


“We don't aim to be self- 
contained,’” Scott said. ‘That 
would be logically absurd. 
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AT THAT POINT [88 KE PLAN TO BEGIN GENERATING SUME MONEY WITH 
_ THE SYSTEMs OUR ONLY SIGNIFICANT REVENUES S6 FAR HAVE COME FROM A 


TIYESHARING CONTRACT WITH THE UNIVERSITY DF CALIFAANIAs 


KE THINK IT'S 


IFPORTANT THAT EVERYS'NE OCVELIP A “EANS OF SUPPORT THAT DBESNT OEPEND 


ON THE LARGESSE GF FOUNDATIANS GR CN wELFAREe 
ARE 79 GE VALUABLE TA BUR COMMUNITY, 77HES 


IT FOLLOWS THAT IF WE 
GROUPS wILL SHARE THEIR 


SLEPGRT WITH “'S (ONLY T@ THE EXTENT THEY ARE ABLE 10), AND THAT WE 


MUST ALSO FIND NON-EXPLOITATIVE WAYS TG MAKE MBNEY IN THE MO 
COMMERCIAL MAQKET« 
SYSTEM, WHICH FERD TURPING ANC CHRIS MACIE ARE FINISHINGs 

SINCe OUTPATIENT CLINICS BFTEN HAVE GOVERNMENT GRANTS THAT 
INCLUCE LINE ITEMS FOR DATA PRECESSINGe AS A RULEy WE LOBK 


RE 


AT 


THAT'S ONE REASGN FER THE HEDICAL INFORMATION 


ANY USE 6F THE 94&C AS POTENTIAL REVENUE, UNLESS THE GROUP INVOLVED 


IS TOTALLY BRAKE AND CAN'T EVEN CB8VER OUR MINIMAL 6UT-6F-POC 


COSTS (WHICH IS SELDOM) «+ 


BESIDES KEEPING THE MACHINE UP, 


KET 


LEE FELSENSTEIN,s MARK PEACOCK 


ANS PAUL WARD ARE PUTTING T6GETHER AN ELECTRONICS SHOP TO BE USED 
BSTH FOR EDUCATION (THEIRS AND OTHERS!) AND FBR CESIGNING AND 


BUILDING HARDRARE NEEDED IN-HB8USE AND FOR BUTSIDE CENTRACTS» 


ONE PROJECT WHICH HAS WIDER PATENTIAL IS A UNIGUE INTERCOM SYSTEM 


CEE DESIGNED FeR ''95NEt! 


THAT LINKS ALL THE SPACES IN THE BUILDING=~ 


IT COULD LEAD TS MBRE SBFHISTICATED NEIGHSORHEGD COMMUNICATIEGNS SYSTEMS> 


SUR EDUCATIONAL PRSEJECTS HAVE BEEN THE F8ST OIFFICULT 


6 


CSNCEPTUALIZE, BUT ARE PERHAPS THE MO85T CRUCIAL TS EXPANDING THE 


CO,CEPT 6F HUMAN USES 6F TECHNOLOGY-« 


PEGPLE wE TALK 16 SEEM 


MYSTIFIED AT FIRST EVEN WITH THE SIMPLE MAILING-LIST PROGRAM, 
ANC WE ARE ALL CONSTANTLY EDUCATING NAN=TECHNICAL PEGPLEs HOPING 
TS SREAK DSKN THEIR FEARS AND STIMULATE CREATIVE THINKING ABBUT 


He THEY CAN USE THE SYSTEM» STEVE ROBINSON, AN MBAs HAS BE 


EN 


GIVING BBOKKEEPING AND TAX CLASSES T6 OTHER GREUPSs, AND THERE 
IS S6ME '§FALLAUT!!--PESPLE BECSMING EXPBSED KHEN THEY C8FE TO THE 
CLASS, AND LATER GETTING INTERESTED IN HAVING ACCESS 16 THE COMPUTERs 


SIMILARLY, MIKE CHADWICK, 
HARDTs THROUGH A SERIES 8F VIRESTAPES 68N KSMEN'S PROBLEMS, A 


THROUGH HIS SNSBOL CLASSESs AND PAM 


RE 


REACHING 6UT TQ THE COMMUNITY AND EXPSSING US IN THE PROCESSe 


AS OF NOW, RESBURCE ONE'S FINANCES SEEM SECURE FOR A YEAR 8R SOs AND NO 


REALLY DIFFICULT TECHNICAL PROBLEMS (BUT L8TS GF GPPBRTUNITI 
REMAIN« 


ES) 


YET wE ARE STILL STRUGGLING «ITH THE REMNANTS 6F OUR 


PROFESSIONAL ELITISM, NEEOS FGR SS8ME HIGHER AUTHBRITY (THE BOSS) 


TS DEEINE SUR TASKS, 4ND TENDENCIES TARARC SPECIALIZATION» 


ALL GF mHICH RESTRICT THE CELLECTIVE PROCESS WE WANT TO CULTIVATEs 


6L2 DECISIONS ARE MADE AT RELATIVELY 3PEN MEETINGS, 

BY UNANIMMUS CONSENSUS 6F A SEVEN=PERSON STEERING COMMITTEE> 
FINAL RESPONSIBILITY FOR GETTING wBRK DONE RESTS THEREe IT 
DIFFICULT TO SUILC A CBLLECTIVE CONSCINUSNESS, WHERE PEOPLE 


SUFPGRT EACH OTHER EMBTIGNALLY AND SBTHERWISEs WHEN WE ARE AT 
®BRK SKILLSs LENGTHS 


DIFFERENT LEVELS OF PBLITICAL AWARENESS, 
65F ASSBCIATIGN, AND COMMITMENTS T8 THE CONCEPT OF COHMUNITY>+ 
BUT IT'S IMPSRTANT,s ANO WE'RE TRYING HARD. 


Is 
CAN 


IT'S VERY CLEAR T@ US THAT RESAURCE BNE CBULD NBT HAVE 


GOTTEN GFF THE GROUND WITHOUT THE HIGHLY DEVELSPED SHARING 
ETHIC OF ''ONE'! -= AND WE CAN'T AFFBRD TD FORGET THATes 
T9 SHARE BUR EXPERIENCES WITH STHERS IAVOLVED IN SIMILAR 
PRECESSES, AND WELCOME ANY CONCRETE SUGGESTI6NS 6N POSSIBLE 
APPLICATIE8NS 3F BUR TAALS. 


MANUAL THAT SAYS ®HAT A GRBUP LIKE US IS SUPP8SED Te BE DBING, 
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Th we'll look at some practical music 
theory a) escribe a few “‘utility”’ algorithms 

for music programming. : 

The first article in this series described chro- 

matic scales. The 12-tone chromatic scale is 

based on the 2nd overtone, which is twice the 


U 


frequency of the fundamental or base frequency. 


The tones of the scale are generated by multi- 
plying the fundamental frequency by the 12th 
root of 2, 12 times in succession (ending with 
the value 2). 


Here is a general program for tempered (pro: 
portional) scales. : ; 


REM *** TEMPERED SCALE FREQU 
PRINT 

PRINT “AT WHAT OVERTONE SHOU 
INPUT R 

PRINT 

PRINT “HOW MANY TONES IN THE 
INPUT T 

PRINT 

PRINT "WHAT IS THE BASE FREQ 
INPUT F 

PRINT 

LET LsLOGCR)/T 

PRINT “TONE, "FREQUENCY" 
PRINT 

FOR I=8 TO T 

PRINT I+], FREXPCI*L) 

NEXT I 

PRINT 

END 


If you input: 


R=2 (octave of the fundamental) 

T= 212 

F = anything 
you obtain the frequencies of a chromatic 
scale (abbr: C-scale) on frequency F. In our 
diagrams, we have labeled the tones of the 
C-scale with the first twelve integers. The C- 
scale thus contains tones 1, 2, 3, 4,5, 6,7, 
8,9, 10,11, and 12. Tone 13 is written as 
tone 1. 
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ENCY GENERATOR *** 


LD I BEGIN REPEATING" 
SCALE" 
UENCY**3 


Do 
E 1 
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DIAGRAM 3: H-ScALE 
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DEFINITIONS AND ABBREVIATIONS 


USED I 


C-seale: 
tones w 


N THIS ARTICLE — 


The Chromatic scale (Diagram A). Twelve 
ith proportionately increasing frequencies, 


repeating every octave, 


H-scale: 
tone of 


The Harmonic scale (Diagram B). The eighth 
a chromatic scale is very close to the frequency 


of an important overtone (the 3 overtone). The H-scale 
is just the C-scale redrawn to display this relationship 
more clearly. 


the defining tone of a scale 
Perfect 

Perfect opposite 

Major 

Minor 


All arithmetic in C-scale music is performed 
“mod 12” — here's a useful mod 12 reducer 


DEF FNM(X)=X—INT(X/12)*12 


“Here's our question for today: 


Given the C-scale as the UNI VERSE, how are ~ 
SUBSETS (patterns with fewer than 12 tones) 
with predictable properties to be selected? 


Here is a simple model to help us. 
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CHROMATIC MAJOR, 
MINOR, 


AND PERFECT TONES 


Chromatic tones fall into four classes: 


1) The DEFINER, and the octave of this tone 
(DO). One of the 12 tones is chosen to be the 
“definer’’ of any scale. Since the C-scale can 
start with any tone, DO must be chosen arbi- 
trarily. In al our diagrams in this article, DO is 
tone 1. The octave of DO is equivalent to DO, 
of course. We include the octave of DO in the 
scale because it makes it possible to use sym- 
metry as a tool of analysis. 


2) MAJOR TONES (MA) Major tones are 
“upward moving’’ with respect to DO. MA 
tones sound happy in a pattern (scale or melody) 
with DO as the definer. 


On the H-scale or cycle of 5ths (see box on 
this page for a description of the H-scale), MA 
tones are all clockwise of DO. 


If DO=1, MA tones are 3,5, 8, 10 and 12 


3) MINOR TONES (MI). Minor tones are 
“downward moving” with respect to DO. MI 
tones sound sad ina pattern based on DO. On 
the H-scale, MI tones are all counterclockwise 
of DO. 


If DO=1, MI tones are 2, 4, 6,9, and 11. 


4) PERFECT TONES (P, PO). If DO=1, 
tones 6, 7, and 8 are called perfect tones. This 
is partly traditional, partly modern. 


a) Tones 6 and 8 are very close (in the C-scale) 
to the 2/3 and 3/2 intervals which were used 

by Pythagoras to define the ‘diatonic’ (7-tone) 
scale (see PCC 1:3). They are honored with 

the title “perfect,” although 6 = MI and 

8 = MA by their positions on the H-scale. 


b) Tone 7 is the “Perfect Opposite” (PO) 

of DO. When the PO appears in a pattern, the 
pattern is reversible, PO becoming (when it is 
played) a competing “DO.”’ Tones | and 7 
thus form an AXIS around which the other 
tones are defined. Note that MA and MI are 
reversed exactly when PO becomes DO, The 
alternation of MA and MI tones.on the C-scale 
is interrupted by the PO, 


As we shall see presently, there is a ‘‘good”’ 
reason for treating tones 6, 7, and 8 asa class. 


: SELECTING SEVEN-TONE SCALES 


- Seven-tone scales, including the familiar diatonic 
_ (major, minor) scales, are subsets of the C-scale. 

How is the subset specified? It turns out that 
there are several ways to do this. Each way leads 
to a somewhat different selection algorithm. 


I) ‘First, the seven tones could be selected 
completely at random, like dealing seven cards 
from a deck of 12 cards. This algorithm is left 
to the reader. For the moment (i.e., this 
article), let’s look only at 7-tone patterns with 
somewhat even distribution (purposely omitting 
scales like 1-2-3-4-5-6-7-1). 

Il) MA, MI, and P(PO). You can use the 
distribution of MA, MI, and P tones to select 
7-tone scales with predictable properties, 

based on the properties of the tones themselves. 
Here is one set of rules of selection: 


Ist location (DO) = 1 (always) 
2nd location = 2(MI) or 3(MA) 
3rd location = 4(MI) or 5(MA) 


6(P) or 7(PO) and 7(PO) or 
8(P) [2 out of 3] 
9(MI) or 10(MA) 

11(MI) or 12(MA) 


4th and Sth locations 


6th location 
7th location 


Diagram € shows the scale locations and which tones 
can occupy each location. The diagram also shows 
how the properties of each of the tones would affect 
the melodic tendencies of the scale. Major tones tend 


to progress upward, minor tones downward. ~<—————>— 


Why do we need a definer? 
a 


The definer (from Ta Chuan/The Great Treatise on 
the I Ching, or Book of Changes) 


In the Book of Changes a distinction is made among 
three kinds of change: nonchange, cyclic change, and 
sequent (non-cyclic) change. Nonchange is the back- 
ground, as it were, against which change is made 
possible. For in regard to any change there must be 
some fixed point to which the change can be referred; 
otherwise there can be no definite order and every- 
thing ts dissolved in chaotic movement. This point of 
reference must be established, and this always requires 
a choice and a decision. It makes possible a system of 
coordinates into which everything else can be fitted. 
Consequently at the beginning of the world, as at the 
beginning of thought, there is the decision, the fixing 
of the point of reference. Theoretically any point of 
reference ts possible, but experience teaches that at 
the dawn of consciousness one stands already enclosed 
within definite, prepotent systems of relationships. 
The problem then is to choose one’s point of reference 
so that it coincides with point of reference for cosmic 
events. For only then can the world created by one’s 
decision escape being dashed to pieces against pre- 
potent systems of relationships with which it would 
otherwise come into conflict. Obviously the premise 
for such a decision is the belief that in the last analysis 
the world is a system of homogeneous relationships - 
that it isa cosmos, notachaos. This belief is the 
foundation of Chinese philosophy, as of all philosophy. 
The ultimate frame of reference for all that changes 

ts the nonchanging. 


BIaqeany C: 


Note that selection of locations 2, 3, 6, and 7 
is binary; selection of locations 4 and 5 is 2- 
out-of-3. No tone can be used twice. No 
location can be occupied by more than one 
tone. There are 1*2*2*3*2*2 = 48 different 
7-tone scales formed by this algorithm. Choice 
of MA ys. MI may be independent from loca- 
tion to location. 


In the following program (program 2), locations 
2, 3, 6, and 7 are independent. Location 5 is 
conditional on the outcome of location 4 (see 
Table for Program 2). The conditional assign- 
ment of location 5 plus the need for two 
different formulas makes this RANDOM selec- 
tion a sloppy algorithm. Can you improve it? 


100 DIM DC¢7> 

10S RAND&M 

110 DC1d#I\DCBd=1 
120 FOR I#2 TO 7 

130 ReINTC2#RNDCO)) 
140 IF I>4 THEN 170 
150 DCId#Re2eCI-1) 
160 GO T@ 210 

170 IF D¢€4)=6 THEN 200 
180 DC(5)e68 

190 IF I=5 THEN 210 
200 DCId=R+2¥C( 1-1-5) 
210 NEXT I 

220 PRINT 

230 FOR I=i TO 8 

240 PRINT DCIDs 


250 NEXT I 
260 PRINT 
300 END 
]-TONE SCALES 
(1) R Di) FORMULA CONDITIONS 
(1), (8) not computed 1 1 always | 
(2) lor0 2or3 R + 2*({ —1) none 
(3) lor0 4or5 R +2*(I—1) none 
(4) lor0 60r7 R+2*(I—1) none 
(5) lor0 7or8 R+2"([-15) D(5)=8 if D(4)=7 
(6) lor0 9 or 10 R +28(I —1.5) none 
(7) lor0 ll or 12 R + 2*(I — 1.5) none 
6 10 12 
i) A SEG. 
ee? WUC) 7 
; foo hi Now that you've seen this program, a little 
question on which we shall build in later 
articles: 
We said that there are 48 different scales 
possible by this method. This statement 
6 10 11 neglects the phenomenon of inversion. A 
scale is an inversion of another scale if 
1) it uses the same tones, but assigns a 
different number the role of DO. E.g., 
1-3-4-6-8-10-11 -1 isan inversion 
= Sf 1c of 1l-1-3-4-6-8-10-11, the brack- 
eting tones being DO in both scales. 
2) the pattern of intervals is the same, 
but beginning with a different interval. 
We'll explain this further in a later article; 
try to work it out for yourself in the mean- 
6 9 11 time. 
How many of the 48 scales are inversions of 
one another? Conversely, how many really 
unique patterns are possible with these rules? 
6 10 11 One further question, likewise with future 
significance: How many of the scales generated 
by this method are symmetrical? For example, 
1-2-5-6-8-9-12-1 is symmetrical (look 
at Diagram C). Is this of any importance? 
7 Olio 
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Last issue we dealt with some general bid re- 
quirements that can be used in any computer 
bid situation (see box this page). This issue 
will deal with specifics for hardware and soft- 
Ware. You should be aware from the start 

that your sofmvare requirements may be every 
bit as important as your hardware needs and 
specs should be written accordingly. Secondly, 
the more specific you are, the more information 
will be provided to you by bidders, (i.e., if 

you list all your requirements, it is incumbent 
upon the bidder to list any exceptions to those 
requirements). If you don’t list your needs, 

he may not tell you all about his system and 
you will haye to search out this information on 
your own. 


Both hardware and software sections can and 
should be written with a required section and 
a preference will be shown if you can provide 
this section. This gives you wiggle room in 
your selection and lets your bidders know 
exactly what your minimum needs are and 
what you really want. Chances are, no one 
will be able to give you everything you want 
(at least not at a reasonable price!). 


5s SY Ss Sn SH 
Here are some more general bid specs 
that haye been brought to our attention 


since the last installment of this article. 
Use them in good health. 


* The bidder must have gross sales in 
excess of $50 million and evidence 
of a profitable computer operation. 
[Wonder who suggested that one?] 
This line will certainly knock out 
Fly-By-Nite Manufacturing but will 
also knock out other small, legit- 
imate bidders as well. 

* Bidder must have 10 (20, 30 ??) or 
more similar installations in simi- 
lar institutions and must provide 
their names and addresses. 

* Bidder must have an active educa- 
tional users group. 

* Bidder must proyide a library of 
programs suitable for use in sec- 
ondary schools (in BASIC). 

* Computer system must have a 
second instructive language 
(e.g., FOCAL — who claims this 
one?). 


HARDWARE 


You can take three different approaches in 
writing specs for hardware. You can be 
SUPER-SPECIFIC. For instance, you could 
specify an 8K, DEC Edusystem 20 with 4 
terminals (ASR 33). Unless you added “‘or 
the equivalent,” this kind of spec would get 
you one single bidder, DEC. If you add “or 
the equivalent” it would be like Opening 
Pandora’s box. Everyone would bid claiming 
they were “equivalent” or better than an 
Edusystem 20 and you might have a real 
hassle proying otherwise. Unless your mind 
is completely closed, we don’t recommend 
this approach. 


Another approach is to spec your hardware 
completely around your software specs — 
“the hardware provided will be capable of 
operating the software described elsewhere 

in this document.” This seems like an awfully 
gutsy thing to do and requires that your soft- 
Ware specs be exhaustive and exacting. This 
approach probably makes the most sense but 
I'm not convinced it’s practical unless you 
really have some sharp spec writers around 


your shop. f oe X% 


Always seeking a compromise, the obvious way 
to spec your system is to list those minimum 
hardware requirements that you think you 
might haye plus your preferences, require that 
the hardware be capable of operating all the 
software specs and write yourself a neat set of 
software specs. > 


Now for the specific hardware items — 
Central or Basic Computer System 


Don’t spec a Central Processor (CPU) per se, 
rather spec a total system. Require that it be 
new equipment (unless you want a used one) 
and define that it be of latest generation design 
(today that’s third generation or is it fourth or 
3¥4[?]). If you’re gutsy don’t identify your 
core storage requirements in terms of x number 
of words or bytes. Instead, specify your needs 
in x amount of USER SPACE or user space per 
terminal, while operating in time shared BASIC. 
(We felt S000 words was adequate if the system 
could CHAIN programs.) And, if your’re 
messing with FORTRAN and the like, then 
define your needs in terms of user space for 
each language. User space is really what you’re 
concerned about isn’t it? You will find wide 
variations in user space from system to system— 
so beware. This tactic puts the pressure on the 
vendor to spécify space in your terms, not his. 
To save you dollar$ later, you should specify 
that the delivered system be expandable to x 
amount of core without the need to replace the 
CPU or the addition of an expansion chassis 
(we said 32K). It’s cheaper to get the bigger 
chassis now and less aggravation later. If you 
have a preference for a 12 bit word system, 

say so. If you want a 16 bitter spec it that way. 
You may as well get what you want! 


More Storage 


In this day and age you have an unbelievable 
choice if you want more storage capability on 
your system. For the complete system you 

can choose fixed-head disks, cartridge disks, 
magnetic tape, DECtape, cassette tape, and a 
plethora of floppy disks and other assorted 
paraphenalia, or any combination thereof. You 
should examine your needs as you see them and 
then make your decision. We’re not convinced 
that a fixed head disk is needed for any reason 
other than speed and to run up the price. If 
speed is not your concern, save yourself some 
money and don’t require a fixed head disk. That 
doesn’t mean you won't get one. Some systems 
only work with such a disk for reasons that have 
neyer been adequately explained. (Warning: If 
you will be doing CAI on your system you will 
need a fixed head disk. CAI consumes an 
enormous amount of disk space and it slows the 
system down considerably. If you plan to do 
anything in addition to CAI on that system, be 
prepared — you'll need plenty of extra disk 
space to handle it.) 


“Td like a computer 
that’s about this high 


and this wide...” 


Here are some cost savers — Most large systems 
are sold with magnetic tape to be used to load 
the “system” in case of a malfunction. This 
tape unit ($10,000 worth) has no other use 
since time sharing users cannot use it. You 

can eliminate this costly extra by using a 
cartridge disk as your time share storage unit. 
In case of malfunction you use this same device 
to reload the system. 


bes = 
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If you're considering a DEC Edusystem, some 
combination of DECTAPE and cartridge disk is 
probably the most flexible, least cost way to go. 
Remember, DECTAPE is more like a random 
access device than it is like magnetic tape, or 

so they say. 


Whatever you do, be sure to specify that the 
storage you want be available to ail users in 
time shared BASIC. That seems obvious but 


-you should know. that hardware people some- 


times sell you things that don’t work the Way 
you expect them to. 


We're a little gun-shy about floppy disks and 
cassette units as of now. We haven’t seen major 
vendors providing software to drive these units. 
Is that clear? Just because it’s attached to your 
hardware does NOT mean it will work. There 
must be some linking software to make the “‘it” 
available to the user in BASIC. The software is 
not always available, so buyer beware... . 
However, if you haye some good software people 
around, these two items may bea good low- 
cost way to adding storage to your little system. 


I/O Capability 


If you're specing a Teletype-only system, there 
is little to Worry about. For each TTY you need 
a TTY interface or forall of them get one multi- 
plexor into which they plug. Multiplexors usually 
handle 8 to 16 TTY and work out to be cheaper 
than buying individual interfaces. If you are 
going to communicate via phone lines with 
modems (see PCC Vol. 1, No. 2, p. 12), beware. 
Some TTY interfaces WILL run either direct 
TTY or modems — some WON’T. Specify your 
needs. No matter how many TTY’s you want 
now, you'll want more soon. Be sure to require 
that your system I/O is expandable. 


LORS 28 
With changing technology you should be able 
to get multi-speed interfaces and multiplexors 
So you will be prepared to run those sweet new 
CRT’s at rates of 30 CPS or faster. Your 
standard TTY interface will no¢ run at 30 CPS. 
Specify variable speed interfaces or multiplexors 
to meet this need. 


If you want card readers, printers, and all those 
other high speed peripherals be very cautious. 
These items don’t just plug into the multiplexor— 
EACH needs a controller (like an interface). Do 
you want these peripherals available for time 
share users? You had better say so! Some BASIC 
systems will run these peripherals in time share, 
other will not. The HP 2000E, the low cost 
model, will not drive high-speed peripherals in 
time share . . . the 2000F will. (Another of life’s 
unexplained mysteries.) Some DEC systems 

will drive these peripherals IF you buy more 

core. 


Another frustrating item is the high-speed Paper 
tape reader you must buy on larger systems for 
$3500 or so. It is only used to ENTER system 
software. No user can use it to enter BASIC 
programs (don't ask me why!). 


Cost savers — Mark sense card readers — we have 
friends who swear by them and other who swear 
at them. Check mark sense readers out carefully 
before you decide. You may find a punch card 
reader will better meet your needs and save you 
money. Line printers are expensive as hell. A 
good Saving can be made if you buy the 80 
column printer instead of the full blown 132 
column model. Do you really need all that 
printing? 


Miscellaneous 

Somewhere in your bid spec you should require 
that all interconnecting cables and hardware be 
_ included. Cables can run $35 to $50 each. It’s 
nice to have them included in the price. (I 
realize these things sound obvious but unfortu- 
nately we know of schools that have been 
$-screwed by these little things.) 


Most bids we’ve seen have specified that the 
system will operate without special environ- 
mental requirements such as air conditioning. 
You might even specify the low-high tempera- 
tures you require. That’s what’s neat about a 
mini. .. no air conditioning, no special raised 
floors and all those other expensive things. 


Powerfail/restart capability is a hardware and 
software item. This goody costs about $500. 
In case of power failure or fluctuation, it 
guarantees you won't lose everthing that’s 
going on and then restarts your system 
automatically. Asa hardware item, it’s 
pretty straightforward. Be sure to mention 
the requirement that there be software to 
make it operate when you’re running BASIC. 
Again, it sounds obvious, but we did use a 
system recently that had powerfail hardware 
but when the plug was kicked out, we lost 
everything???! 


Want your computer in a cabinet? Better say 
so, you may not get it that way. 


Maintenance — the stickywicket of this business. 
It costs dearly but buy a yearly maintenance 
contract on your system and high speed peripherals. 
It’s worth it. We don’t recommend maintenance 
contracts on TTY’s. Service them with on-call 
service. Be confident that you will get 12 to 

24 hour service from the computer manufac- 
turer — service by employees of the firm. I’d 

be very leery if maintenance is only available 
from a “local mechanic with whom we 
contract.’ Those of you in the boonies will 
encounter this problem. Beware. 


We've said ... don’t buy TTY’s from the 
computer supplier. Itll cost you a fortune. 
The computer supplier may require that 
you buy a consol TTY from them (usually 
an ASR 35 for $3500 or so). Youwstuck 
buying it from them but don’t accept the 
ASR 35 — tell them you want an ASR 33. 
It will do the same job at half the price. 


When you specify TTY’s from another 
source be sure to include the requirement 
that the TTY be modified for your system. 
TTY’s connected to DEC, Data General 
and other computers, require a modifi- 
cation kit installed in the TTY to make it 
run compatibly with the computer (cost 

is about $100 each). Remote TTY’s (via 
phone lines) don’t require these modifi- 
cations. 
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leasing — Nobody buys computers these days, 
they lease them. Someone out there should 
write us an article about leasing — pros, cons, 
prices etc. We do know that interest rates 
vary from firm to firm as do all other fine 
print items. Let Truth-In-Lending work for 
you — REQUIRE the vendor to specify the 
interest rate used in calculating your lease. 


SOFTWARE 


We're only going to worry about BASIC here. 
If you need other language specs, you'll have 

to find another reference. Let me repeat the 
comment that this section of your specs may 
be more important than your hardware require- 
ments. 


BASIC was developed at Dartmouth College 

and there is considerable literature to explain 

what is called Dartmouth BASIC. Trouble is, 

the authors of the language have come out with 
several revisions and improvements to the 

language which have blurred the original definition. 
We’re going to reinstate what we think is the 
original Dartmouth BASIC. 


Dartmouth BASIC includes the following 
statements: LET, PRINT, READ, DATA, 
GOTO, IF-THEN, FOR, NEXT, GOSUB, 
RETURN, INPUT, REMARK, END, DEF, 
DIM, STOP, RESTORE, RND, SGN, SIN, 
COS, TAN, ATN, SQR, LOG, EXP, INT, 


You may not need the MATRIX commands. 
All the rest represent the absolute minimum 
BASIC language requirements. You might 
place the MATRIX commands in a “‘desirable”’ 
software category. (MATRIX commands take 
up an awfully large amount of user space on 
core-based minis. Be sure to require the ability 
to delete the MATRIX commands at your will 
to gain user space when MAT isn’t used. Then 
you only have to load the MAT commands when 
you need them.) 


To this stanaard BASIC you should add the 
requirement of a TAB command which will 
help formatting output and the MULTI-BRANCH 
GOTO (ON x GOTO 100, 200, 300) which you 
will find invaluable. 


If you're really getting into it, youll want 
STRING VARIABLE capability on your system. 
String variable commands allow you to manipu- 
late alphabetic data. Some systems will only 
allow strings of lengths from 6 to 18 characters, 
depending on the system. This is almost like no 
strings at all. HP allows strings of 72 characters 
(one full TTY line) on the 2000 series. DEC’s 
BASIC PLUS language will handle strings as 
large as 255 characters. In addition to having 
strings you should specify the ability to use 
relational operators (< =, >) with strings so you 
can do such things as compare strings and 
arrange them in alphabetic order. To round out 
your string variable capability you should re- 
quire the ability to concatenate strings and 
separate strings using substring commands. 


In the category of “preferred and awfully nice” 
(but not necessary) we place the ability to 
store strings in arrays or string array capability. 
This feature is now available one some of the 
newer, super BASIC systems that are coming 
out. 


Next in order of preference, we see the need 

to CHAIN programs, that is to link two or 

more programs together for continuous operation. 
With CHAIN you must have a COMMON state- 
ment which allows carrying a variable forward 
from one program to another. Some systems 
offer CHAIN but not COMMON, caveat emptor. 


The following BASIC features are not in any 
meaningful order but we suggest you evaluate 
each on its’ merits and use them in your specs 
as you see fit, ... as required, ... preferred, .. . 
not necessary. 


PRINT USING or picture formatting as a 

BASIC command. This gives you the ability 

to control output format with more precision 
and without some fancy programming shenan- 
igans. Especially useful for business applications. 


: ore MEMOES ONYEGCOING TO BID2z}7 


Multiple statements per line — DEC has a neat 
user space saving feature that permits-you to 
put multiple statements on one line. 


19 FOR X=1 TO 1@\PRINT X\NEXT X 


If you’re looking at a core based mini this is 
almost a necessity. 

Immediate or calculator mode — allows you to 
execute unnumbered statements without writing 
a complete program and without having to 
scratch the existing program. The statement 

may be any legit BASIC statement, even including 
a looping one. 


ENTER permits limiting the time a user has to 
input a value. Absolutely essential for CAI and 
nice to have for simulations and games. 


File capability — the ability to store data in 
sequential and random access files. You should 
specify how many files can be accessed at one 
time (4 to 10), how much data each file should 
be able to handle. These figures will vary wildly 
from system to system. 


Logical operators - AND, OR, NOT operators 
available to use on all data. 


Peripheral drivers — if you are buying card readers 
etc., we repeat again, specify (REQUIRE) that the 
BASIC software include the ability to effectively 
use these items by terminal users. 


There must be other BASIC features but we're 
out of gas! If you're seeking a large disk time 
sharing system than you must require a full 
compliment of system accounting features 
including x number of assignable user numbers, 
file protection for each user, and the ability to 
keep track of time and space for each user. You 
should also require that the system have a Public 
Library capability which allows all users to access 
the programs in this library, AND require that 

the vendor provide you with at least 200 programs 
for this library each of which be suited for 
educational use at your level. HP (maybe DEC too. 
has a nice feature called a GROUP library. Users 
with similar user numbers have access to this 
library in addition to the Public Library. This 
feature is appropriate in a consortium installation 
where each school may like its own library in 
addition to the Public one. 


We hate to say this, but these are the recommended 
requirements for one language. If you are con- 
cerned with other languages you should take some 
time to specify your needs for that or those langu- 
ages as well. 


Is it hardware or software? Someplace you should 
require a reasonable response time when the system 
is in full use. What’s reasonable??? How about 5 
seconds after pressing RETURN when all 16 (or 32° 
users arg doing normal problem-solving activities. 


WOME MPM Tx 

At the present time there is a Standards 
Committee meeting to establish stand- 
ards for the BASIC language and all its 
improvements. This article has com- 
pletely disregarded the existence of these 
standards. When they become ayailable, 
we will print them so you can require 
the establishe 
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were a bit bedazzied ._. if you could do something in the Wayo simple enaloaus 23 22% ed lev Ae EGRESS Pe CFSE ORS Sin 
hel lain how @ computer sort of about its business | think it might B a 5 
en a goes mihene cut P6000 B7a0, Giles 7 hoe Qe sree a3 
{hesitate getting too deep into that: ba 7 Swe) athe. yKe FHE RID AG AS eet 
(1) because the computers themselves can provide an experience worth much ies ere w. POP- ? en K «a JSzo Senve S4icoF 
more than a newspaper article. ia ms = 
(2) for fear of the “Radical Software Effect... ~ | like software but couldn't S Z any, Ze - Ae f 7p z ->% si ps - 
do much with until | had a few personal exchanges with a porta-pak under Syarn ; 7 CAC UZ 7 te ar xs is 
by belt. 5 fo the ety loe= ani athe 4.52 Te cis eS = 
U of A has a whole mess of computers: IBM 360/6F /40,1800, POP8{18), PDP8E(2), pie : Z WE 
HP 2116, HP/2114, DEC NOVA (3), HON ODP 316, HON DDP SIS NICH EDO: Seen eat Se EEG TZ ee Buck. Sere 
EAI 590, COC 240, COC L6P 30, CDC 3150, NIC 1800, XDS 920, RAY 703, UNI 9200, Ef He te EO af - sae - A 
UNI 9300 (2), BUR 2301, but the only one I've ever spoken to is the IBM 360/67 .. . Aikeot. Sf txks wW 1 7 ise ALES a ey . pce Mpc 
1 don’t even know what the rest look like or what kind of magic they perform. One leis mae tne. We tay 2 am. Ae 
No, | don’t have a computer .. . do you haye a 4K you can spare . . . what do you think /. A a ; seh <= 
of DEC’s POP-16 modules .. . I'm reading the book. - LFS ~ ES, PERE uk Sn Coa a Pe SEUSS ke 
\'m kind of new to computers really and haven't got enough vocabulary to ssy much more ere Ruy e a WBE. SY Ldn C24 5 Cee DSC eae go 
more than a few stupid sentences but . . . | found a magazine called: SOFTWARE - seers Hoes a Bie ae 
Practice & Experience, Periodicals Department, John Wiley & Sons Ltd., Baffins Lane, Sona lee EAs =! phate. «wn 44,7= RS Smear oe Dn sce 
Chichester, Sussex, ENGLAND, $23.40 USA, $22.50 CANADA/vear (quarterly), that —V/, et as “L ce 
hasa regular article in the back called Computer Recreations: for example, — — pet Sony. ated fen Aen Ol mC Lee 
— “Darwin” a game between computer programs as programs GLOGH ke He 
— “Napolean™ The Military Game Ee, 
— “MOD” or Y evi fe 


—“CALCOMP” = can’t read this stuff 


Seymour Papert was in Edmonton a few weeks back for some seminars, etc. and 
mentioned: 


(1) Alan Kay’s involvement in somo kind of computing thing (centre?) for public &: aba A Gf 
people in Palo Alto or wherever it is that Xerox has its mutant farm ‘ cienlific Analyse Corporation 

(2) Xerox's own “computers and kids’” program 

(3) Ed Schlossberg (of the Brooklyn Children’s Museum) and a traveling circus 
that involved computers, inflatables and a lot of travelling 


S 


(4) Drs. Papert & Minsky’s own “computers & kids’ thing @ MIT and General 1473 
Turtle l 
Do you people know anything about these things or could you find out about 4 = 


them and write it up in PCC? 


AM COGAL OPPORTURITY LUPLOTER 


MINNEAPOLIS PUBLIC SCHOOLS ele ea ae Hhgg A meek pe Saints 


SPECIAL SCHOOL DISTRICT NO. 1 SOUTHWEST HIGH SCHOOL SEE 02 Aeeeaneh ee Ft al teughc 4 
3510 West 47th Street 
Minneapolis, Minnesota 55410 ne | tema Cee ler 5 Stay, Th. cA 
Jin Moen, a nenber of the Corcuter Club, did thia cartoon, T thought it : Cs eee dale 
was a clever oiece of work and hove that you mizht ptblish it in a coi ats Qc Shp A 
issve of your paper. eee e See Tae < 


Jin Moen eives bis consent for publication, If it is published he would Te 
like some extra ccpies of the issue. 


Yours truly, 


Edvin Andersen 
Chairman, Mathematics Department 
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A NON-PROFIT ORGANIZATION — 451) CALIFOPNIA STAECT, SAN FRANCISCO, CALIFORNIA 94118 / 7. 


~x 
les Morg an 


ELEPHONE (415) 732-7180 


CABLE BPRA SAN FRANCIECO 


| I would like to know how to vet the rest of this school 


year's issues, (Hy son and I like your magazine very much), 


7, cerely, 


James HcCortack 


P.S, My son, the main concuter user =t our house, says: 


I don't have a comzuter, but have access to one (an HF 


2000) 


I don't have a misic conroser, but don't really want one 


HP-20C0Z The cheapest tape winder is a psir of hands 


BASIC (Bro Acastams Sicnen InTewicent Connsress) I have about five simulation/zane programs I -1ve written 


TERMINAL (and more thot are either inacctarste or not working) 


$ I would liko to see similition/gine prozrams that are a 
little » a 
ONLY 2000 nee RN € more conslex 


I will definitely do a page in the future 


A GIFT FROM THE GOUTHWEST ANTI“MANACEMENT FORCES (SAME) 


Spat . ) 10 TrHI! THIS IS THE GAME OF ROOMS- 
Diner 20 TriT*S LIKE *HIDE AND SEEK*--Y@U PICK ONE @F THE ROOMS 
: 30 TsOF YOUR HEUSEs LIKE THE KITCHEN OR 
sy ao TrYGUR BEDKGOM 


sO Trl*LL ASK YEU *YES* GR *NB* QUESTIONS 

60 T#AND TRY T@ GUESS YOUR HIDING PLACE 

70 Tt 

60 TsPICK A RGS@M AND TELL HE WHEN YOU*RE READY 
90 *AGAIN Tt 


100 At 
S SMORE Tr HERE WEG@eO! 110 TsOKeee 
10 Ts HEY» HEY» WHAT'S YOU SAY?? iz0 Tr 
20 A:SCAT s 
30 Tr WHO, WHO ARE YeUUU? 140 TrIS FeOD USUALLY FGUND IN YOUR ROGM 
40 A:SNAME 150 *ASKI Ar 
50 Tt HOW» HOW DO YOUU FEEL L L ? 60° MEYES 
60 ArSFEEL 170 JY1*Fe0D 
70 1D YGU LIKE GRAPEFRUIT IN THE MORNING?? 180 MrNG 
80 At 190 JYreN@FoeD 
90 MrYES,YEAH-@K,SURE-LOVE 200 TrI'H SOGRY-- 
100 Ys:$NAME, DOES A GkAPEFRUIT FEEL SFEEL IN THE MCRKNING? 210 TrI'M SORRY-+-PLEASE TYPE "YES* GR *NO* 
110 NzI SAYs SAY SCAT TO You! 220 Ji#¥ASKI 
120 J:#MORE 230 FOOD T:G0GD---IS IT USUALLY USED T@ EAT IN 
240 *ASK2 At 
250 Mr1YES 
260 J¥t*KITCHEN 
RUN 270 HINO 
HERE WE GOO?! 280 JY1*DININGRGOM 
HEY» HEYs WHAT'S YOU SAY?? 290 TrI'M SORRY+---PLEASE TYPE “YES* GR "NG" 
2DINGBATS ARE FUNNY 300 JreAsSKe 
HHO» kKHG ARE YOUUU? 310 KITCHEN Ts:ARE YSU IN THE KITCHEN 
2ME, HEE» HEE 320 At 
HOW, HOW D@ YCUU FEEL L L ? 330. MtYES 
2KUN OVER BY WATERVEL@NS 340 JYt*GOTIT 
De NSUFEIHE GRAPEFRUIT IN THE MORNING?? BERR ETUEOP 
7ILOVE z 360 *DININGRO@M T:ARE Y@U IN THE DINING ROOM 
ME, HEE-HEEs D@ES A GRAPEFRUIT FEEL RUN GVER BY SOMAS 
WATERMELONS IN THE MORNING? 380 MrYES 


390 JY1*GOTIT 


HERE WEGe@oOod! 400 JNr*G1VEUP 


HEYs HEYs WHAT'S YOU SAY?? 410 #NOFOGD TrHMMsee-+IS YOUR RO@M USUALLY USED TG RELAX IN BY 
78 5 420 TrEVERYSODY 
BYE C 430 ¥*ASK3 At 
EDITGR IN 440 MIYES 
EH?10 450 JY!*RELAX 
220 460 MING 
2KUN 3 470 JY¥1*N@RELAX 
HERE 6EG2®6 0! 480 TtI'M SORRY«+-+PLEASE TYPE "YES OR ‘NO’ 
WHE» WH ARE Y@UUU? 490 Jt*ASK3 
THEN SS Fa reels ae arteee SOO *RELAX TtARE YOU IN THE LIVING ROOM 
CW, t 2 S10 At 
7RUNNYNGSED 520 MIYES 
peared LIKE GRAPEFRUIT IN THE M@RNING?? 530 JY1*#GOTIT 
2NEV $40 JNt*GIVEUP 
ee een acen Oe 550 *#NORELAX T:DGES SOMEONE SLEEP IN THIS ROOM 
tz SS 560 At 
WH@,» WHO ARE YCUUU? 570 WMrYES 
7e S80 JY:*BEDRGGM 
BYE S90 HENo 


600 JY¥:*«GIVEUP 

GIO JNr*WASH 

620 “BEDROOM Tz:IS IT THE BEDROOM 

630 Ar 

640 MtYES 

650 JYt*GOTIT 

660 JN1*GIVEUP 

670 *WASH T:D9 PE@PLE WASH UP IN YOUR ROOM 
6680 At 

690 MrYES 

700 JY:*¥BATHROGM 

710 JN1*UNDER 

720 *BATHRO@M TIARE Y@U IN THE BATHRGGM 
73G At 

TAD MLYES 

750° JY1*GOTIT 

760 JNt#GIVEUP 

770 #*UNDER T?ARE YOU IN THE BASEMENT 
7680 At 

790 MrYeS 

800 JY:*GOTIT 

6810 JN1*«GARAGE 

€20 *GARAGE TrARE Y@U IN THE GARAGE 
630 At 

840 MtYES 

650 JY¥1*GOT1T 

860 JNr*#GIVEUP 

670 ¥*GOTIT T: 

880 TrTHAT WAS FUN! 


890 J1*AGAIN? 
FOR THE REVOLUTIONARY 900 ¥*GIVEUP Trl GIVE UP. WHAT R@GM ARE YOU HIDING IN 
910 At 
2 : 920 T:0Ne.-l SEE! 
— Put some PILOT Poetry up! Find the English Department! 930 SAGAIN? TrWANT T@ PLAY AGAIN 
— Try Spanish, French, Latin (?) in PILOT! 940 At ; 
T: HOLA 950 HtYs/YES-OKsALRIGHT» SURE 
960 JNt¥OUT 
— Invent some word games!! (Courtesy Abe Waksman, SRI) 970 TsPICK AMGTHER ROOM AND TELL ME WHEN YOU'RE READY 
R: WORD GAME IN & OUT 2E0S I TsAGATN 
T: TROUBLE IS OUT, BUBBLE IS IN oO Seen 
T: DUCK IS OUT, GOOSE IS IN ?RUN 
T: FOOT IS IN, SHOE IS OUT HI! THIS IS THE GAME 6F ROOMS. 
T: GUESS THE RULE-GIVE ME A WORD GF YOUR HOUSE, LIKE THE KITCHEN OR 
*MOREA:$WORD YOUR BEDRGGM 
: I'LL ASK YOU *YES* @R 'N@* QUESTIONS 
M: AA,BB,CC,DD,EE,FF,GG,HH,II,JJ,KK,LL,MM AND TRY T@ GUESS YOUR HIDING PLACE 
JY: *NEXT 
M:NN,0O, PP,QQ,RR,SS,TT,UU,VV.WW.XX.YY,2z PICK A RQGM AND TELL ME WHEN Y@U'RE READY 
N:SWORD IS OUT TREADY 
JN:*MORE OKeee 
*NEXT T:SWORD IS IN 
J:*MORE is F@@D USUALLY FOUND IN Y@UR ROOM 
NO 
HHMeeeIS YOUR RO@M USUALLY USED T@ RELAX IN BY 
EVERYBODY 
2YES 


ARE Y@U IN THE LIVING ROOM 


7YES 


retic the “core” instructions — 

by the makers of the language. Many implemen-— 

~ tations will have more instructions, some may have fewer. 

‘The idea is to keep the core set in every implementation. — 

~ Anote about entering programs: 

‘The program that makes PILOT 73 work is usually called” es 
“the Editor.” This program varies in language and operation 
from system to system. This miniprimer is a description of 
the language only; we assume that you will learn about your 
Editor from the people who set up PILOT 73 on the system =~ 
you will use. : 


TALKING COMPUTER: 

To make the computer talk, you use the T- instruction (for 
TYPE). When you run this program : 

TSHELLO @ 

the computer says 

HELL@ @ 

(T: is just like BASIC “PRINT”’) 


You can use the T: to make the computer print pictures! 


Ts SEPT? 
Ts j - = C 
Ts e ¢O 0) ) 
Ts c A 3 
Ts { #27 J) 
Ts C J 

T: NN>#</7/ 


Or to tell stories, etc. 


T3THIS IS THE STORY OF THE DOWNFALL OF THE NIEBEL 


(The program is left for your completion. Use extra pages if you wish.) 
TALKING TO THE COMPUTER: 


To get the computer to let you get ina word or two (or more), you 
use the A: instruction (for ANSWER). When you run this program 


As cS) 


the computer types } @ 

rf 

then waits for your response. After you have typed in something and 
pressed the RETURN key, the computer will continue with the rest 
of the program (if any). 


Here’s a short program 


T&STHIS IS THE QUESTION 
TsWHAT IS YOUR BIRTHSIGN 


As 
T&THAT’S NICE 


When you run this program, here’s what happens: 


THIS IS THE QUESTION 
WHAT IS Y8UR BIRTHSIGN 
? 


Then the computer waits for your answer... . If you then type 


CAPRICORN (followed, of course, by the RETURN key) 


the computer continues with 


THAT*®S NICE 


Now, you do it: write a PILOT. program using T; and A: which 
“behaves” like the interviewer ona TV “talk show” (like, Cavett, 
Carson, etc.) That is, it asks question after question, without paying 
attention to the answers at all. 


Or, if that’s not your cup of T:, try simulating Mother Goose. Here's 
a typical MG, telling a story to her children 


sesiepusiesieese 


ee 


ORI 


[ 


S 


Ne 
: 


a 
. 


WHEN SHE HEARD THIS, THE WICKED WITCH JUMPED @N HER 
BR@OMSTICK» AND HEADED AS FAST AS SHE COULD FLY BACK 


T@ HER HOUSE IN THE WO@DS. 


AND WHAT D@ YOU THINK SHE DID WHEN SHE G@T THERE 


?ATE UP THE KIDS ee 
2N@» SHE JUST CHASED THEM MG's children reply 
20000» THE WICKED WITCH! 


WELL» WHEN SHE GOT THERE, THE FIRST THING SHE DID WAS coe 


(Well, what was the first thing she did?) 


2) 


THE COMPUTER TALKS SOME MORE: 


WHAT IS YOUR NAME 
?FEARLESS FRED 
HELL@»s THEREs FEARLESS FRED 


How did the computer do that? By using an answer label. Here’s the 


program: 
TsWHAT IS YOUR NAME 


Az SNAME <——#£ —_—____—_ hts is an answer label 
TSHELL@s» THERE» SNAME 


Let’s look at some more computer talk: 


TsWHAT°S YOUR NAME 


Az SNAME 

TsHOW OLD ARE Y@U CIN YEARS) 
‘At SAGE 

T:WHERE D@ YOU LIVE 

AtSLIVE 


T:S@s YOUR NAME IS SNAME» AND YOU LIVE IN SLIVE 


T:AND YOU ARE SAGE YEARS OLD. 


See how answer labels work? The $ means “the next characters are an 


answer label ” When the computer sees 

As SNAME 

it labels the response with the label “SNAME.”’ Then when it sees: 
TSYOUR NAME IS SNAME 

the computer types the first part 

YOUR NAME IS 

then it looks for the A: line which contains the label SNAME. If 


it can find such a line, it will type the response which was given there. 


If it can’t find the line, or if that line hasn't been reached yet (in the 
program), the computer types the label. 


WHAT*S YOUR NAME 


?7CLEOPATRA 

HOW @LD ARE YOU CIN YEARS) 
22500 

WHERE D@ YOU LIVE 

2EGYPT 


S@s YOUR NAME IS CLE@PATRAs AND YOU LIVE IN EGYPT 


AND Y@U ARE 2500 YEARS @LD- 


What next? JUMPING! 
Gee TI AM HERE 
T:I AM THERE © 
J: #HERE 
(This is a pees 


‘K line label) SSS 

q I AM HERE 

\) When you RUN this, the computer says: 1 AM THERE 
I AM HERE 
I AM THERE 
I AM HERE 


etc., until you stop the computer (BREAK key on some systems). You 


use a line label (like *HERE, *LABEL, *START, etc.) to tell the J: 
instruction (for JUMP) where to jump. 


*HERE Tt I AM HERE 


Jt *#THERE 
*WHERE TtWHERE AM 1? 
J2*HERE 
*THERE Tt I AM THERE 
Js #WHERE 


will produce the same result as 


*BEGIN T:I AM HERE 
TsI AM THERE 
TsWHERE AM I? 
J?*BEGIN 


What is the result? 


Veh 


Here’sa “fancy " way to jump (or, here come subroutines); 


zm ‘*BEGIN TsHERE’S THE START 
Ur *MIDDLE : 


T:THIS IS THE END 
_ J: *END 
| #MIDDLE T:THIS IS THE MIDDLE 
Es 
%END T1GQ@DBYE 
Et 
Zé 2RUN © 
SS, 
388 HERE'S THE START : @ 


= THIS IS THE MIDDLE 
THIS IS THE END 
GOODBYE 


So, : 
U: (for USE) acts just like J: (jumps to a label) 
E: (for END) does two things 


(1). Ends the whole program (like BASIC “END”). The last E: in 
the program above does this, right after the label *END. 


oY 


SEAS EAS 


ISS ZS 


| 
et 
vv 


Ifa U; line has been executed, E; returns the computer to the 
line following the U:. The first E- above, right after the label 

*MIDDLE, does this. When the computer reaches this instruc- 
tion, it automatically jumps back to the line right after the U: 

instruction. @ 


M: 
THE WORLD OF © 


The M: instruction (for MATCH) is used to make the computer a 
little “smarter.””" LOOK HERE 
T:D@ YOU KNOW WHAT DARWIN IS FAM@US FOR 


z 
MsEVOLUTI@N»sSPECIESsBEAGLE 
TY:F GUND A MATCH! 

TNsN@ MATCH 
?RUN 


D@ YOU KN@W WHAT DARWIN IS FAM@US FORK 


~ 


Now, if the responder types in one of the three M: items, a “match” 
will be found. 


Ifa match is found, the value of M: is “YES” (Y). 
If no match is found, the value of M: is “NO” (N). 


M: executes a character by character string comparison of the response 
given to A:, with each of the M: items, one item at a time. (In other 


MIN AN AIS ZINCAINAINCZN ASSASINS 


words, a “moving window” comparison. ) 


M: takes everything literally. Suppose we run the above program. 


D@ YOU KN@W WHAT DARWIN IS FAMBUS FOR 
?2NQ@~<————_—_ an honest answer. . . 
N@ MATCH 


iy M:z is NO. 


Again: 
ee YOU KN@W WHAT DARWIN IS FAMOUS FOR 


2INVENTED SPESES 
pe No MATCH 


(M: is NO ‘cause the responder can't spell.) 


Once more: 


Z 
K D@ Y@U KNOW WHAT DARWIN IS FAM@US FOR 
?THEORY OF EVOLUTION 


Z 
ee A MATCH! 


(M: is YES, since the A: matches one of the M: items.) 


: To get the computer to “ignore” irrelevant spelling errors and/or 
K extra text, the M: items may consist of a few consecutive 


characters of the desired response, for example: 
MsEVOL»sSPEsBEAG 
You may get ina little trouble with this approach, Consider: 


D@ YOU KNOW WHAT DARWIN IS FAMOUS FOR 
?THE SEXUAL REV@LUTION 


If the M: line is 
MtEVOL»SPE.BEAG 


then M: will find a match, because REVOLUTION contains one of 
the M: items. 


SS 


3 


his should help you to figure out how M: works. That's only the 
first part. Next, let’s do something with the value of M:. Look at 
this program: 


ORIN 


T8WHAT AMERICAN WAS THE ‘FATHER @F HIS COUNTRY* 
At 

Se 

Fe TY:G@@D FOR YOU» SMARTY- 
JY 2 *END 

K SS TISORRY. THAT’S NOT IT 
*END Et 


ORAS 


If M: is Y after execution, the instructions 


Y:G@OD FOR YOUs SMARTY- 
Y?:*END 


SK 


will be performed. If no match is found, M: will be N, and all Y: 
instructions will be skipped. Here’s the RUN: 


aS 


WHAT AMERICAN WAS THE *FATHER @F HIS COUNTRY* 
?SAM SPADE 
SORRY» THAT*’S NOT IT 


a 


Let’s try again 


WHAT AMERICAN WAS THE “FATHER @F HIS COUNTRY’ 


?2WASHINGTON 
G@GD FOR YOUs SMARTY-« 


BENGES 
SeZ 


Z 
AS 


NOES 


Because M: is YES, the JY: instruction jumps to the line 
labeled *END. 


oe Any PILOT 73 instruction can be make ‘‘conditional” on the \ast M: 
line executed by adding Y or N to the instruction. 


Examples: 
Sv 

AY JN MN UY EN MY 
ye 
K ‘: A few other details: 


(1) M: looks at the last A: executed. 
(2) 
y 


RON 


x M: lines can contain as many items as you can fit in a line. 
K (3) TY: can be written as just Y: 
Se 4) TN: can be written as just N: 

(5) Each time a new M: line is executed, the value (that is, Y or N) 


K Z of any previous M: line is erased. 
py ere 


S Sama IS THE LARGEST STOCK MARKET LOCATED, 
RA STINE YORK» MOSCOW» GR LONDON 


RA SE CINE NS TORKZNY 


Y:RIGHT ON 
IN, JY? *¥END 
RA BE MiMOs 
NZ Y:S@RRY» THE RUSSIANS AREN'T CAPITALISTS CYET) 
AWS; JY 2 *END 
a MN?L@N 
~< YtS@RRY» THE SUN HAS SET ON THE EMPIRE 
YINS2 *END Es 


2RUN 


WHERE IS THE LARGEST ST@CK MARKET LOCATED» 
NEW Y@RKs M@SCOWs OR LONDON 
?2MBSCOW 


SORRY» THE RUSSIANS AREN*T CAPITALISTS (YET) 
?RUN 


WHERE IS THE LARGEST ST@CK MARKET LOCATED» 
NEW Y@RK»s MOSCOW» OR LONDON 

?LONDON 

SORRY» THE SUN HAS SET ON THE EMPIRE LG) 


NUMBERS IN PILOT 73 


The computer can ado Turhber things, too (in case you didn’t know). 


PILOT 73 commonly handles numbers and OSPLESI ONS just like BASIC. 


To. allow you to enter a number while a program is running, use 


\ (“X" can be any of the 26 alphabet letters. Some 
As #x systems will allow you to use more than one letter.) 


Then, you can use the C: instruction (. for COMPUTE) to get the com- 


puter to evaluate e) xpressions. 


13) 
Cs Y=2*x (Y = 2#X is the expression) 3 C) 


CG: works just like a BASIC “LET” statement. The expression must 
contain legal BASIC arithmetic symbols, and any letter variables must 


have been assigned values previous to the C: instruction. 


If you're doing a lot with numbers and algebraic expressions, there 


are some other things about PILOT 73 to learn. (Or go learn BASIC!) 


We'll hold the messy details for future issues. 


FOR COMPUTER FREAKS ONLY fAND FOOLS} 
I. PRELUDE TO THE EDITOR 


THESE PROGRAMS WERE MADE TO FIT THE 
HP cOOOE {& THEREFORE, CDODC & F}- THREE 
BIG LIMITATIONS IN HP BASIC {2000 VARIETY? 
ARE {1} STRINGS MAXIMUM LENGTH = ?2 CHAR- 
ACTERS, {2} NO CHRLIX} AND NUMNLXS} FUNCTIONS 
{3} YOU CAN'T RUN A DATA FILE, EVEN IF IT'S 
FULL OF PERFECT BASIC STATEMENTS- 

THOSE OF YOU WITH 256 WORD DISC RECORDS 
MAY WISH TO CHANGE THESE PROGRAMS, AS PILOT 
1 AND PILOT 2 WORK ON 4&8 RECORD X 128 WORD 
‘FILES. {PLEASE, AFTER THIS ONE WORKS FOR 
YOU-+ 


II- ORGANIZATION OF THE EDITOR 
FILE "TEST" LOOKS LIKE THIS: 


[Arwie) [fo tavenf] § states 445] 
¢t 


t To: t 

1 5 9 48 
A CONTAINS LINE NUMBERS- ZERO=END OF 
PILOT PROGRAM 


B CONTAINS ADDRESSES IN SSTRINGS PORTION. 


SSTRINGSS LOOK LIKE: 


Cs Lelspe [er] 


SIX STRINGS IN EACH RECORD 
MAXIMUM LENGTH=41 CHARACTERS 


A "B” ADDRESS=ADDRESS OF STRING. 
FIRST STRING=1 
47TH STRING=4? 


LONG STRINGS £)41 CH} ARE BROKEN UP INTO 


TWO STRINGS & SAVED SEPARATELY- THE LINE 
NUMBER IS REPEATED - 


LONG NO 

| 

—— —— 
A 10-20-30 30: 40 50 GO oO 


Beet er 4 8 57 G8 


LINE NUMBER 10 IS IN ADDRESS 1 
LINE NUMBER 30 IS IN 4, END HALF IN 15 


14 


To insert remarks in your. program, use 


PCC PILOT HAS: = oe ee ae 


T: A: *label 
Y: M: $LABEL 
N: Ui 
R: Ey 


PCC PILOT DOES NOT HAVE: 
U: #label 


Dre age cee ie A a ae Ge aE es 


R: (for REMARK) _ 


R: lines don't print or do anything else. They are for the 
programmer's comments. Example — 


@ 
R: THIS IS REMARKABLE! [R @ 


To continue a line, (especially M: and T:) just begin the next 


line with a colon. Example — @ 
T:THIS IS THE FIRST PARTs AND 
THIS IS THE CONTINUATIGN © 


THE EDITOR KEEPS TRACK OF ALL THIS AS You 
ENTER & EDIT YOUR PILOT PROGRAMS. You 
CAN'T FOUL THINGS UP AS EACH COMMAND OR 
LINE IS PERFORMED, THE DISK FILE IS up- 
DATED- 


SCR DOES THIS: 


A OG ooaod STRINGS ~ 240 NUL STRINGS, 
B ! 234 G/ RECORD 
IIIT- PRELUDE TO THE INTERPRETER 


is PILOT IS STRAIGHTFORWARD TO INTERPRET.- 
THIS HAS BEEN PATCHED OVER A LOT, BUT IF 
YOU CAN DO CLEANER CODEs GROOVY. DUE TO 
SPACE LIMITATIONS; THE REMS HAVE BEEN 
ELIMINATED - MAKE YOUR OUN- 


A & B ARE SAME AS IN THE EDITOR- BE 
SURE OF AT LEAST 241 ELEMENTS: {THE 
EXTRA IS FOR OCCASIONAL LOOP OVERLOAD} 


M &® L ARE SYMBOL TABLES- M HOLDS 
STRING ADDRESS OF A XLABEL - L HOLDS STRING 
HASHCODED LABEL NAME. 

S STORES SVARTABLES fHASHCODED}- INDEX 
OF S=STRING ADDRESS IN FILE 'E' E HAS 4; 
BO CHARACTER STRINGS/RECORD. 


IV. HASHCODING {MAKING STRINGS BECOME A 
NUMBER} 


HERE'S A NEAT METHOD {COURTESY PETE 
ROWE} CALLED - LOGARITHMIC GODELIZATION.- 


{1} TAKE EACH POSITION OF THE STRING {LABEL} 
AND ASSIGN IT A PRIME NUMBER. 


AH Sra Sims (I ALLow Yop) 


C3 


{2} ASSIGN A NUMERIC VALUE TO EACH LEGAL 
CHARACTER, LIKE: 
a 6 ZY AS (Wigadne 74C) sa0Ky/ 
DEE Cpe 5 © 2g 29 33 

{37 THEN CONSTRUCT A LABEL LIKE "ABA™ THE 
NUMERIG VALUE OF THIS WOULD BE 


Be—VALUE OF LETTER 


3 
N1 a i 3) F— ASSOCIATED POSITIONAL PRIME 


THIS IS CALLED "GODELIZATION-" SINCE 
NL GROWS A BIT RAPIDLY. WE USE LOGS: 


{4} N= Loe (NI) = 
3 ¥ L0G (2) + 4 ¥ Log (3) + 3 ¥ LOG (5) 
ERGO: "LOGARITHMIC GODELIZATION." 


3 ok 


PRINT “EDITOR 


KEM-PILOT 73 SYSTEM bx GhEGUKY YOb 
IEM=2296 BRYANT PALO ALTO CAL. 326-4039 
. 


I . 
__KEM- COPYKIGHT, 1972. 
DIM ASC41).bSC4) 


IF KSe""* THEN 190 
PKINT  INSTKUCTIONS"s 
INPUT SS 

IF SSC1-13#"Y" THEN 190 
CHAIN “PILOTS” 

FILES TEST-E ~ 

IF END #1 THEN 260 
KEAD. #141 


MAT READ 413A 
READ #125 
MAT READ #136 
GeTe 310 


GOSUB 5690 


PRINT "SCRATCH PERFORMED ON FILE" 


KEM-EDITOh PROGRAM 
IN" 


PRINT “EH“s 

INPUT SS 

1620 

GOSUB S410 

IF N<l THEN 2000 
REM-NUMEHIC COMMANDS 

7" THEN 700 
THEN 900 


Fok Isl TO 240 

IF ACIJ®N THEN 470 
NEXT I 

GeT@ 340 


REM-SINGLE LINE 
P=BCl) 

FOR Jel Te 239 
ACJI=ACJe1) 
BCJ)=6C Jel) 
NEXT J 
AC2403=0 
BC(240}=P 

GOSUb 5200 

GOTE 340 
REM-DOUBLE LINE 
PsbC1) 
PileBCIel) 

FOR Jol Te 238 
ACJIFAC +2) 
BCJJeBlJ+2) 
NEXT J 

ACZ40 J=A(239)20 
BC239J=P 
BC240)=P1 

Gesu’ 5200 

GETS 340 
KEM-LIST TEN LINES 
FOR I=l T@ 240 
IF ACI} >= N THEN 750 
NEAT I 

G6T@ 340 

PRINT “"" 

J1=0 

IF Ji>10 THEN 870 
G@SUB 5270 

IF ACI41)4AC1) THEN 620 
T=lel 

IF SS="** THEN 870 
PRINT AC133SS 

T=l+1 

IF AC1)<1 THEN 670 
JileJiel 

GOTO 770 

PRINT “'* 

GO18 340 

KEM-ONE LINE 

FORK Jel 18 740 

IF ACJJEN THEN 940 
NEXT J 

GeTe 340 

PRINT “** 

IsJ 

GOSUB 5270 

PRINT ACI)3Ss 

PRINT 

GaTe 340 


REM- INSERT OF GVERKNKITE 


FOK I=l To 240 

IF ACIJ=N THEN 1080 
IF ACIJ>N THEN 1400 
IF AC1}=0 THEN 1570 
NEXT I 

PRINT "N@ MORE SPACE" 
GeTe 340 
REM-OVEKRRITE 

IF I¢1>240 THEN 1110 


IF ACI)#ACI¢1) TheX 1250 


REM~ @NE LINE IN FILE 
IF LENCSS)>41 THEN 1160 
G@SUB 5040 

GeTS 340 


REM- TkO LINE INSERT, ONE LINE IN FILE 


Ts=ss 

S$=#SS(1,41) 

G@SUB 5040 

IsI¢1 

SS=TS(42) 

GOSUB 1910 

GOSUB 5040 

GOSUB 5200 

GOTO 340 

KEM- TLO LINES IN FILE 
IF LENCSS)>41 THEN 1320 


Double line deletion 
Deletion incolves, bumping A arrey, bumping Rlerrsys 


3-C$041)-0SC 41 J-ES(413,F 30411 
DIM SS(72),0S(72) ‘ 

DIM TS(72) 3 
KEM-SET PO TO LENGTH GF S$ AND OS IM ABQVE FO is masimum sriag length 
On72 


Pi 

DIM AC2503,8(250)-L050),M(50) 
DEF FNACK) @X-INTC(X-1976)06 
DEF FNBCXD=INTCCX-1976001 


rd om your system 


FINA chooses which string ino record 
FNU chooses which record to eceya 


A tring in common is initialized to NVL. This detects 
whether « chained program is RUN of nol preriously 


“PILOT 3” has instractions & chains bock to “PILOT 1™ 
Abrays different in cach dialect of BASIC 
Checks whether to initialize (SCRATCH) your file (TEST) 


Absoré A and B arrays 


SUB 5690 initsalizes the file TEST— 
Jest a reminder 


First thing you ove in RUN of returning from PILOT 2 
Indicates ilegel command 
‘S¥ holds your inpat for parsing, etc. 


SUB $410 tries to get a line number N= —1 = ao numbers found 
Branch to [RUN,RENSCR.LIS] 
Line 700 Kats 10 lines. Lina 900 lists nae line. 


Ifonly a number, delete 
DELETE LINES 


Locate line number if double length 
IF ACI+1}=N THEN 580 


SUB $200 saves A and B on dak 


end saving oddres at end of ( able 
orn of B erray (or avail space 


700-880 lists 10 ines 


Locate Line number 
“is for NC line feed in HP BASIC 


SUL $270 books up the string 
Check if double length 


“is for NC line fred in IP HASIC 


890-990 List one line 


"is for line fords 


Save of overwrite a line (hairiest part of editor) 


Check if ovencrite 
neck if last line 
Insertion 
Exrer flag 
1080-1390 Overwrite — Possible cases: 
SINGLE DOUBLE 
Single length input 1110 1270 
Double length input 1150 1320 


SUB 1910 bumps 4 and B (maxes @ hole) 
SUB $040 stores string on disk 


REM~ €NE LINE T@ PUT INTO TWO LINE FILE 


G@SUB 1820 

GOSUb 5040 

G@SUB 5200 

GOTO 340 

REM- Tk® AND TWO 
TS=Ss 

S$=S$(1,41) 

G@SUB 5040 

TeI+1 

SS=TS(42) 

G@SUB 5040 

GeTO 340 

KEM= INSERTICN 
GOSUb 1910 

IF LEN(S$)>41 THEN 1470 
REM= SINGLE INSERT 
GGSUb 5040 

GOSUB 5200 

GOTO 340 

REW= DOUBLE INSERTION 
TS=S$ 

SS=S$C1,41) 

G@SUB 5040 

I=I¢1 

S$=TS$( 42) 

G@SUB 1910 

GOSUB 5040 

GOSUB 5200 

GETS 340 


SUB 1820 eati-bumps A and B (fills o hole) 


Saves A and B arrays 


1400.1560 Insert new line benween others 


Check if double length 


PILOT 1 


By CTeegokY my 


1570 
158O 
1590 
1600 
1610 
1620 
31630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1620 
1830 
1440 
1#50 
16460 
1870 
1640 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
19no0 
1990 
2000 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2060 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
3040 
5050 
S060 
5070 
5080 
5090 
5100 
S110 
5120 
5130 
$140 
5150 
5160 
5170 
5180 
5190 
5200 
S210 
$220 
5230 
5240 
S250 
5270 
S260 
$290 
5300 
S310 
5320 
5330 
$340 
5350 
5360 
5370 
S380 
5390 
5400 
$410 
S419 
$420 
5430 
5440 
$450 
5460 
$470 
S4eU 
5490 
5500 
5510 
S520 
S530 
S540 
$550 
$540 
5570 
S580 
5590 
5600 
S610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
$700 
5710 
5720 
$730 
$740 
5750 
5760 
$770 
5780 
$790 
5800 
6100 


REM~ LAST LINE CASE 

IF LENCS$)>41 THEN 1650 
REM- @NE LINE, PLEASE 
ACTIN 

CGOSUL $040 

GOSUb 5200 

GOTO 340 

HEM-LCUELE IF YOU WISH 
ACIIEN 

ACI*1IEN 

TS=ss 

S3=Si01,41) 

GOSUL 5040 
SieTsl42) 

T=Iet 

GOSUE 5040 

GGSUE 52700 

GBH JAG 

KEM- GIVEN I< DELETE 
Pebtl) 

FOR J=1 19 239 
ACIIBACJe1y 

HOJJebC Jer) 

NEXT J 

AC240120 

bLe40 eb 

hRTURN 

BKEM= Given I 4 HUHP OUT ane LIN 

PebCsa0) 1910-1770 ws punds Awad Ui bake this 


FORK Je2ao te 14) STEP =) 25 25 
‘ a) 2 
A eg Ga ct a 


ACJIBAC I-13 
(As you may note, insertion & deletwrn shes strange things) 


15701740 If-mew kine aqual to bast line then this 
block @ weed 


Sergle wie 


Drowble sae 


Store string 
Sure Aad Barrays 


THE LINE 
INZO.1900 SUM 1620 shrinks A aml Il bhe this 


» 


Cs pres away) 


fs pees to ond) 


re 
BC =bCy-13 ten 


NEXT J 

ACII=N 

BC }=P 

RETURN 

KEM-NON NUMERIC COMMANDS 
S$=S3(1-3) 

IF SS="SCR" THEN 2070 
IS" THEN 2100 
EN” THEN 2220 
IF SS=*"AKUN" THEN 2360 
GOTO 330 

REM- SCRATCH 

GOSUB 5690 

GeTS 340 

REM-LIST Last 
PRINT "*** 

FOK I=1 Te 240 

IF ACI}<1 THEN 2190 
GOSUB 5270 

PRINT ACI}s;Ss""" 

IF ACII#@ACI*1) THEN 2180 
IeI+l 

NEAT I 

PRINT “*** 

GeTe 340 

REM~ KENUMBER 

15=10 

FOR I=1 T@ 240 

IF ACI}<1 THEN 2340 

IF ACI}=ACI*1) THEN 2290 
ACII=15 

15=15*10 

GeTe 2330 

ACI)=1S 

ACIe1j=15 

I=I¢1 

G@TS 2270 

NEXT I 

G6SUB 5200 

GoTe 340 

CHAIN "PILOT2" 

RKEM-GIVEN I, STASH SS 
V=FNbCb( 13948 

READ #1,V3AS,65,CS,DS,ES,FS 
GOT@ FNACBC(1}) OF 5080+510045120,5) 20,5160,5180 
PRINT #1,VsSS,bS,CS,DS,ES,FS 


P= bast entry in It 


Recall Line 370 - this is the other main branch of the editor 


Look at Ist 3 charocters of S$ and branch 


Ratarn to EI[?, Line 330 if not recognizable 


The “" contains Xt (turns porch off) chick eticns the 
lope to be used as input at a hater time 


Renumber by 104 (15 holds increment velue) 


If sero, quit 
Oreck if double length 


3 hare COMPO 
yond PILOT into 0m POET 
NOTE: PIL! on bel bert vite mg000 betone 
ine to dere 
or?) 
Sevt A and B arreys 
RUN (PILOT 2 RUNs the PILOT program) 


Messy a1 you can see. Read @ record, reserite holding mew strings S$ 
Because strings start at record 9 in TEST. 


KETURN 

PRINT #14V3AS,S5,CS,DS,ES,FS 
RETURN 

PRINT #1/V3JAS,6S,SS,0S,ES,FS 
RETURN 

PRINT #1,VJAS,5S,CS,SS,ES,FS 
RETURN 

PRINT #),VJAS,5S,CS,DS,SS.FS 
RETURN 

PRINT #1,V3AS,5S,CS,DS,ES,S$5 
RETURN 

KEM-PRINT A AND & ARRAYS No comment. Sace A and B arrays 
READ #1,1 

MAL PRINT #15 

READ #1,5 

MAT PRINT #136 

RETURN 


KEM= EXTRACT SS WHEN GIVEN 1 
KEAD #1,FNECKCI +6 

FOR J=l T@ FNACBCI)) 
READ #13Ss 

NEXT J 

IF 1#1>240 THEN S400 

IF ACT#+13#AC1) THEN 5400 
16=b(141) 

KEAD #1,FNK(16)+4 

FOR J=} TO FNACI4) 

KEAD #1j;AS 

NEXT J 

SSCLENCSS.)41J=AS 

KETURN 
REM-GIVER Ss 
DIM Zi010) 
ZL=E"ULASAS4THS" 

Ne-1 

Gash 5550 

IF S$=" THEN 5540 

Gesuie S610 

IF N1<0 THEN S530 

IF N>-] THEN S560 

Neo 

NelO4#Neny 

Si=Sitv) 

GAIF SAaso 

GCOsth Ssso 

KETUAN 

KEM-VEBLANK Ss 

If SSCle1)e" * THEN 5600 
s$e55C2) 

IF S$=""" THEN 5400 

GeTc $560 

RETURN 

REM~DIGIT SCAN 

NIz-1 

FOR Jel TO 10 

IF SSC141)#ZS(J+J) THEN 5670 
Ni=J-1 

RETURN 

NEXT J 

RETURN 

REM-SCKATCH KOUTINE 
MAT A=ZEK 

MAT BeZER 

FOR Jal To 240 
BCJ)=J 

NEXT J 

ASe"" 

FOR Je9 TO 46 Print NUL atrings in 8STRINC$ portion 
PRINT #1, JSAS,AS,AS,AS,AS,AS 

NEXT J 
G@SUR 5200 
RETURN 

END 


13 string aldress. Get S$ given J 
One mile!!! (Note the 8) 


Serial READ works fine. If you are @ time fanatic, note $280 
which gets you nrarby 


heck if file is fall 
Check for doable lencth 


Concatenations in Ill HASIC 


CE1 N Convert string "9" to numeric 9.0 ele, Cots line number 


5$H10.5530 SUN 5550 removes beading biinks 


compare digit with numeral 


Nuild N 
Op off fiat character in S& 


Lick wr! 


Set NI = value of digit 0 ~9 


SetA=0,B=1,2,3,...,240 


Saves statements 


15 


READ 41,5 


Exit to editor 


| SUB MBO indiolises Lots of staff — 
BB, Wand Q arr counters 


MAT READ 4154 z 
WAT READ #136 a aeet ; 
MAT MeZER Here we start the fant pass (assemble symbol tebler) 
PAT LeZER ; 

Feo a : 

Qe1 

FOK I=1 To 240 
GOSUb 5260 
COsLEN(SS) 

IF Sia"*" THEN 2750 IP NUL string, formt pass ia complete, Start execution 
IF SSC1e1 "8" THEN 2585 Grech for “bel Branch round if not 


Scan loop. I= all string eddreames in SSTRINGS 
SUD 5280 Gwen I, return S$ [rom BSTRINGS 


GESUB 3490 SUI YAO extracts * bel ax 18 

GOSUB 2920 SUB 4920 hash codes DE as QI 

LtO}=01 Store hashed beble in L 

MCGJ=1 Stove eldress in M 

OeGel Increment counter Q wire 
IF G>SO THEN 2750 Tent if teble fut If 20, begin execetinn S3isnee 
GOSUb 3580 SUH 3500 Leek for colon in stalement. k~ C8 = ©" 

IF CECLS1 184A" THEN 2640 Sin fant Ar 


IF SSC1e1)#"S" THEN 2640 Sip ifno $ mrmble to mare 


GOSUb 3690 : 

cesuEbaseo Get $ varisbl ax [)$, hash cote DE 

1921941 lacrement counter I 

IF 19>Z0 THEN #640 Uf toble bs fall, enore 

SU19)=G1 Sere in table 5" 

GeTe 2565 

1F GO<42 THEN 2640 

Wrst Increment counter Uelderss)eccordiag to sing or 
IF 00<42 THEN 2650 iit ons 

I=iet 

NEXT 1 Fal of binck 

1=0 Bezia ¢ieentoen I= pengram counter 

Iel¢! Increment program counter! 

IF I6<) THEN 2790 Ni chev hs for double length lene 

l=I+t 

1k=0 

IF I>vaq 1HEN 3490 Emp of cad of file 

GOSuE Sv80 Cot new SS, tert f NUL. best \f'double length, wet Bt flag 


IF Ss=""" THEN 320 
IF Leu¢S£)<42 THEN 2860 


1e«) 
IF SSC( 1,1 )¢"e" THEN 2920 
GOsUb 3690 
Ir LENCS$)>0 THEN 2920 
Gata 320 
GOSUb 3580 Cet C4 * condition, C8 = command 
3000 
St) Oreck if CF exists 
3360 
3220 Brench to command 
‘ 3190 
2760 
IF CSe"E" THEN 2890 
Geto 3140 Ts defeult 
IF F>O THEN 2945 Oreck if “yes” 
Geto 2760 
IF F<i THEN 2945 Queck if “no” 
GOTO 2760 
GOSUB 3820 SUB 3820 scans for § variable and prints text 
TeT+l Tis boop flag. If > 100, will exit program 
IF T>100 THEN 3470 
GOTO 2760 Back to main loop 
GOSUS 4520 Match routine SUB 4520 
GoTe 2760 
INPUT IS A: 


ISCLENCIS)+13="" 
TSCAsLENCTS)¢93=1¢ | _—Ald nda img so 
ISCi,3)="" : 

TsO Turn off loop counters (remt to zero) 
IF IS$(€4,4)="@" THEN 3490 Check if “@" abort (chain to PILOT 1) 
Ti=T=0 

IF S$C1,1)4"S" THEN 3340 
GOSUB 3690 

G@SUB 4920 

FOR Jel TO 19 

IF Q1=S(J) THEN 3320 


Seve reply ia “E" 3280 — find oddress 


NEXT J 

GeTe 2760 

L2eJ 

GOSUB 4370 SUB 4370 stores reply in “E"™ 

GOTS 2760 

Tlell¢i Jamps — increment jamp counter, test if greater than 100 
IF Tl>100 THEN 3450 

Ds="e" A fodge fixit! 

GeSUb 3690 . 

GosuB 4120 Extrect *tabel SUB 4120 looks for address 
IF K2=x0 THEN 3430 If M2 (were address) * 0, lohel not found in table 
Isk2 Set program counter end jump! 

GeTe 2600 

PRINT “CANNOT LOCATE pss] 

GeTe 2760 Foot meget 

PRINT “JUMP Leer AT "DS 

G@To 3490 J 

PRINT "TEXT LoeP™ 

PRINT "BYE" Exit program to editor PILOT I 

GOTe 320 


IF S£C1,19#" " THEN 3570 SUB 3520 remove kreding blenks 
IF LENCSS)<1 THEN 3570 
S$eSS(2) 

IF LENCS£)<2 THEN 3570 
GoTe 3520 

RETUAN 

GOSUb 3520 

FORK Ji=2 10 LENCSS) 

IF SECJI,J1J5"2"' THEN 3650 
NEAT JI 

RETUKN 

CS=S$C1,1) 
GS=S$(Ji-1,JI-1) 
S$=St(Jiel) 


SUR 3580 look for“:” C= command ($= condition 


KETURN 

COSUb 3520 SUB 3670 Drblenk and get * label of § rarmeble I$ from S$ 
bse" * 

FORK Jie<e TO LENCSS) 

IF S$CJIl,J1)="S" THEN 3740 


IF S$(JlsJ1) THES 3740 


IF S£(J1,519<"0" TEN 3790 Izpst character set. If illrpal character, endofabel 
IF S£CJ1, 1 )<" THEN 3740 
IF SSCM,J1I<" THEN 3740 


IF S£CJ1,51)>"2" THEN 3790 
NEXT Jl 

J2eLENCSS) 

tim DECI0) 

REM 

Dsti,1@)#S$C1,J2) 

SSa5s( 241) 

RETURN 

JesJi~t 

Geto 3760 

Pel SUB 3820 Scan text for $ rorwible, Print text end § rorinbly 
PI=LENCSS) 

IF SS(P,PJa"S" THEN 3900 Test if character iu “8” 

PRINT SSC1,1)5 Print a chameter 

IF LEN(SS)<2 THEN 3880 

S$=SS(2) 

GeTa 3830 

PRINT Carriage ond line feed when finished 

RETURN: 


colon 4240 L3=FNC(L2) 


Thy ee ftir te ease 
IF Leeo THEN 4010 
PRINT "'S"3 
GaTeNA030 
42400 SUB 4240 get X8 from “E™ 
OSCP 3=xXS(3-LENCXS)-33 Ciwen harhcoded * bet 
Pi=sLENCOS) ae seh A ol} 


IF Pi+LENCSS)<PO THEN 4080 
“OSCLENCOS)*1 J=SSCLENCDS)1) 
SS=0s ; 
co 


3560 If not found, error and Peace 
QSCLENCOS)+1 3055 Sees eh 
S203 


GOT@ 3850 


REM 
4130 GOSUB 4920 
4140 FORK J=!i T® 50 
4150 IF L€J}=01 THEN 4200 
4160 NEXT J 
4170 PRINT DS" IS MISSING" 
4180 L2=m2=Ie! 
4190 RETUKN 
4200 [=MCJ) 
4210 Leement 
4220 KETUAN 
Coren L2, grt X8 from “F™ 
4250 KEAD #2,L35WS.XS, S725 
A260 LA=FNUCL2) 
4270 IF L4<2 THEN 4340 
4260 IF La<3 THEN 4310 
4290 IF L4<4 THEN 4320 
4300 XSszf 
A310 RETURN © 
4320 XS=yYs 
4330 RETURN 
4340 xSehS 
4350 RETURN 
4370 L3=FNCCLe) 
43680 READ &2,L35WSsXS,YSsZS 
4390 L4A=FNDCL2) 
4400 IF L4<2 THEN 4490 
4aiQ0 IF L4a<3 THEN 4470 
4420 IF L4<4 THEN 4450 
4430 PKINT #2,L334S-X2,YS,18 
4440) RETURN 
A450 PRINT #42,L35SsXS,1S,Z5 | 
4460 RETURN 
4470 PRINT #2,L335S,1S,Y3,Z= 
4480 RETURN 
A890 PHINT 42,L331S,XS-YS,ZS 
4500 RETURN 
4520 SSCLENCSS)+1)=","" 
452) FOR Je=2 TO LENCIS) 
4922 IF IS€J2,Je).# IS CJ2-1-J2-1) THEN 4526 
£$23 IF [2€J2sJZ)#" " THEN 4526 
AS24 . ISCJP=-1I=ISCI2) 
4525 IF Je=LENCIS) THEN 4530 
4526 NEAT J2 
4530 FeO 
4540 IF LENCS5)<2 THEN 4660 
4550 FOk Jl=1 19 LENCSS) 
4560 IF SECJisJij="," THEN 4540 
4570 NEXT JI 
AS6O XSeSS(i+Ji-1) 
4581 IF X$C1-1)4" " THEN 4585 
AS82 XS=XS(2) 
4583 IF XS=‘'"'! THEN 4530 
4584 GOTO 4581 
aS8S. IF XSCLENCXS)-LENCXS))#" “ THEN 4590 
1586 XS=XSCI>LENCXS)-1) 


Given L2, put X$ into “E™ 


MATCH FUNCTION 


Kemoce multiple blanks in onnwer 


Flig = "Nr 


Na morr ene works = branch 


Cet N$ 61 cue word. Remove leading and trailing blanks 


1887 IF XS=""° THEN 4530 _ Blank ese word exit 
4588 GOTO 4585 
4590 SSsSs(Ji+el) Truncate S$ for next cue word 


4600 IF LENCXS)>LENCIS) THEN 4540 
4610 FOK Ji=1 TO LENCIS)-LENCXS)¢1 
4620 IF XS=ISCJ1,U1+LENCXS)-11 THEN 2650 Sloring window match scan 
4630 NEXT JI 
4640 GOTO 4540 
4650 Fel saz 
4660 RETURN ad 
4680 DEF FNC(X)sINT(X/.4-95)41 Inualizing stuff 
4690 DEF FND(X)=X-INT((X-1)/4)64 
4700 OS=""*SALCDEFGHIUKLYNCPURSTUVKXYZ0987654321" Legal character set 
$710 DIM IS(72) 
4720 DIM kS(603+xXS(601,YS(601,ZS(60) 

0 DATA 2535-711 019017+19»23+29 4730-4780 
2730 FO J=1 10 10 Pe ice (primes Late Racy 
4160 READ Ol 
4770 PCJ3=LeGCa1) 
4780 NEXT J 


Ling 4840 — Print “XXNX™ into “E™ If you have: 
1 T; HOW ARE YOU, § NAMY 


4790 M=LI=Tl=12=0 2 A: 3NAM 
4800 T=0 the “XXXX™ will apprer a1 an undefined $ variable 
4810 MAT L=ZER vale indicator fae ex 
DIM S(20) 
MAT S=ZER 
READ #271 


4840 FORK J=1 TO 5 

4B50 PRINT #20 SE"AXXAXK' se “XXAXXK 4s XXXXKX 4 AXAARA 
$860 NEXT J 

4870 RETURN 

4890 DIM GSC(40) 

4900 DIM P{10) 

4920 Q1=0 

4930 JI=LENCOS) 

4940 IF Ji<i1l THEN 4960 
49sO J1=10 

4960 FOR J=l TO JI 

4970 F@R Kel TO 36 

4980 IF DS(J,JJ=OSC(KsK} THEN 5020 
4990 NEXT K 

S000 NEXT J 

S010 KETURN 

S020 O1=01+kKeP(J) 

5030 GOT 5000 

5260 READ #1,FNBCBCI))+6 
$290 FOR J=1 TO FNACB(II) 
5300 READ #15S% 

5310 NEAT J 

$320 IF 1+#1>240 THEN 5400 
$330 IF AC141)#ACI) THEN 5400 

$340 I6s6CI+1) 

5350 READ #1-FNUCI6)+6 

5360 FO J=1 TO FNACIG) 

$370 KEAD #13AS 

S380 NEAT J 

$390 SSCLENCSS)+1 J=AS 

$400 KETUAN 

$550 REM-DEBLANK S$ Kemove leading blanks from S$ 
5560 IF S$C(1s1)#"* * THEN 5600 

$570 SS=Ss2) 

5560 IF Sis" THEN 5600 

$590 GTO 5540 

5600 KkETUKN 

6100 END 


Converts I$ into log godelized hash code OS 
[illegel character, will stop (~_ "is illegal) 


ff 7 Cteeony 9 


Cet S$ from TEST 


Parca Tares of Pitora BND 
Pivot 2 Are AVAMABLE FoR 31000 
FROM; 


G aecsay Loe 


7UUb Reyast Pare Arts, cit. 
EUG -326- 4OS4, 
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ING PILOT 


- LOADING AND USING 


‘If you are familiar with BASIC, the remarks will help you fit PILOT 1 
and PILOT 2 to your system. If youaren’t, follow this cookbook: 


(Gp) 
@) 


3) 


(ep) 
Gs) 


Be sure your computer is an HP 2000 Series machine. 
LOGON, SCRATCH, ENTER THE CODE FOR PILOT 1 AND 
SAV AND LIS. 

Check that what you have is identical with this one. If not, fix 
and repeat this step. 

Repeat for PILOT 2. 

Create a dummy program, PILOT 3 


5  COMKS(1) 

10 PRINT “READ THE MANUAL, CHARLIE!” 
15 K$=“y" 

20 CHAIN — PILOT 1 


-30 END 


Ge) 


Later you can write your own instructions. 
Now that youare loaded and ready (ahem): 
OPEN—TEST,48 


OPEN—E,5 
GET—PILOT 1 
RUN 


At which time all those other errata will appear which you missed 
in Step 3. 


It's wise to save some copies under other names in case you clobber this 


one 


@) 


@) 


:D) 


C10) 


[Beware of the CHAIN—BEAST ] 


At last, it runs (sort of). Try the various operations — entering a 
program, LISTing, SCRatching, RENUMBERing, and RUNning. 
{When you RUN, PILOT 2 is activated. If you crash, you will 
still be in PILOT 2. When fixing your typos, be sure to get 
*SAV—THE PROGRAM YOU ARE FIXING* or you will likely 
either fix the wrong program or lose your fix when it chains to 
the other program] *Each time!! 


Try writing PILOT programs which use all the features (i.e., T Y 
NMJAR £). 


Congratulations! 


Send us any really neat PILOT programs — some will appear in 
PCC. 


If you don’t like steps 2 through 9, send $10to Gregory Yob, 
2296 Bryant, Palo Alto, CA. and we will send you a tape with 
PILOT 1, PILOT 2 and PILOT 3 on it. 


MISCELLANEOUS THINGS & TECHNICAL HASSLES 


Gp) 


@) 


G3) 


@) 


G) 


C6) 


Files — If you have a highly similar BASIC (like NOVA or BASIC 
TYMSHARE), the files statement [Line 190 ] may be different. 
“TEST” is FILE #1 and “E” is FILE #2. 


Space — If you have a HP 2000C, your record length is 256 words 


So you can use twice as many strings, etc. per record. Try if you 
dare. 


Space (continued) — PILOT holds 240 single length lines. In 
practice about 1 in 8 lines are double length. Think of about 200 
lines of PILOT as your maximum size. 


Since this is an interpreter, it looks at the disca lot. There may 
be response problems at 5 or more terminals in PILOT. (This 
trouble has been experienced at SRI and LHS.) If you have 
this problem, let us know. 


There may still be bugs! Call me up (Greg at 415-326-4039) so 
we can fix em! If you have cleaner code or hot programming 
ideas, we have ears, (Especially if your version (a) works, 

(b) faster (c) with less core) 


Tapes of PILOT 1 and 2 are available — $10 service charge per 
tape (holds PILOT 1 and PILOT 2). When we have it together, 
manuals and some sample program will be included, 


INTERPRETER 
vs. 


TRANSLATOR 


IMPLEMENTING SIMPLE LANGUAGES ON MIDI-MINI TIMESHARE COMPUTERS 


Pote Rowe 
Lawrence Hall of Science 
University of California 
Berkeley 


24 JAH 1973 


In this and later issues of PCC, readers will be able to explore new lan- 
guages. Some of the sinple languages can be written in BASIC. The way 
they are inplemented in 5ASIC is the point of this article. 


At the start, I will define a Midi-Mini as a multi-user, BASIC interpreter 
with data files and string manipulation, timeshare computer. Hewlett 
Packard's 2000 series, Digital Equipment's EDU 30, 40, 50, RSTS-11 and 
Data General's Seminar 2 thru 10 generally comply with this definition. 


BASIC as a problem oriented interpretive language is known for its ease 
of coding, debugging and editing. However, to use BASIC, one must have a 
minimal knowledge of algebra; a knowledge enjoyed by relatively few. 


Then what other languages can we design for the majority of the "kids" (PCC 
Yol.1,no-2 p.5) and teachers who do not and usually will not learn BASIC? 
PILOT, PYLON, CO-PILOT and NYLON ore predecessors to PILOT 73. All are 
simple author languages that take only minutes to learn and use, but are 
powerful enough to produce moderately complex programs. The question arises 
of how to implement this new tool on currently ayailablo machines, providing 
the interactive features for PILOT 73 authors that BASIC authors have been 
enjoying for years. 


Goar (1969) defines an interpreter as a routino that executes by statement— 
to-statement translation, substituting effective error tracing for execution 
efficiency. BASIC on all the afore mentioned computers has been inplemented 
intorpretively. 


When PILOT-like languages are inplemented interpretively in BASIC, also an 
interpreter, response-time is affected. PILOT 73 source code must be kept 
on a date file for interpretation, translation and/or editing. Hence the 
need for a Midi-Mini. And during file access and transfer, no machine 
instructions can te executed, hence reducing the number of machine instruc- 
tions, therefore BASIC statements executed during a given amount of time. 
When many users are involved with file accesses and transfers then the 
number of instructions executed for an individual user will be even less, 
resulting in a degraded resporse-time. 


Two actual examples are known: (1) A DIALOG program, a subset of a more 
elaborate interactive author language was implemented on our HP2000B as 
an interpreter and (2) Dr. Sylvan Rubin at S.R.I. implemented his PYLON 
interpretive language on the DEC RSTS-11. In both cases, seven terminals 
executing these interpreters seezed to be the magic number. The systems 


became bogged down doing file accesses and transfers and response-tine was 
noticeably degraded. 


An operational solution: Create an editor, syntax analyzer and a PILOT 73- 
to-BASIC translator. The editor and statement Syntax analyzer could reside 
in one BASIC program, where each PLOT 73 line, before insertion to a source 
file, would be checked for acceptable PILOT 73 grammar. Once insertion and 
editing were complete, the author could give a command to translate his 
PILOT 73 statements into BASIC code, which would be written into a data file. 
“This translation need only be done once to produce the executable BASIC code. 
On our Decision system ard on the Data General Seminar series, a user could 
uccess this data file as if it were a program file and execute it using the 
machine's BASIC interpreter. On the HP2000 series, an intermediate step of 
punching a paper tape inage of the data file anj loading the tape back into 
the terminal as a BASIC program, is necessary. 


Perhaps in a student-es~author environment, handling paper tape will dis- 
courage their involvement. It's yet unknown what effect the internediate 
step might have on teacher authors, 


In contrast to the interpretive implementation of PILOT 73, a translator 

need only translate the source code once. And in effect, the PILOT 73 author 
4s creating a BASIC program, eliminating file accesses during its execution 
and therefore improving response-tine. 


PILOT 73 is a real language! The following people have agreed 
on the main features of PILOT (this version is a subset) and the 


means of extension, Specifications are available through U.C. 
Medical Center. 


WHO'S WHO IN PILOT LAND 


Name Organization 


UC Medical Center 
San Francisco 


Mainframe 


IBM 360 
Datapoint 2200 


Language 
PL/I 


Machine Code 


John Starkweather 
Marty Kamp 


Pete Rowe 


LHS Decision BASIC 
Berkeley HP 3000 BASIC 
Dean Brown Stanford Research Tymshare BASIC 
Sylvan Rubin Institute DEC11/20 SUPER BASIC 
RSTS 
Gregory Yob PCC HP2000C,E,F BASIC 


If you have a version, let us know and we willadd you to the list. 


Dean Brown, Marty Kamp, and Greg Yob are interested in groovy 
programs, curricula, etc., which develop in PILOT. 
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= Fai : : 5 ‘ 3 ; a * ® Ss 
[Each issue we will present an “advanced”’ programming technique: 
with explanations, examples, programs and problems. We welcome 
. 
Secondly, we will consider what are called the “logical Operators,” 


ee, VENUE 
suggestions for topics of interest to you. ] 
that is, those involving AND, OR, NOT and Others. 


A logical expression is an expression whose value is either Oorl 
depending on the values of the variables in the expression. For 


example 


ABS(SGN(X)) 
is a logical expression 

IF X = 0 THEN the expression equals 0 
IF X 7 0 THEN the expression equals | 


Notice the use of the words IF and THEN. 


We already know that NOT e is equivalent to 1 —e. If we have two 
logical expressions e/ and e2 then e/ AND e2 is equivalent to e/ *e2. 


re 


RVR 


It is sometimes con- 
yenient to think of | as representing frue and O as representing 


es SHORT FORM —- LONG FORM LOGICAL EXPRESSION 
Many times it is possible to use a logical expression in place of an ef Axe e2 eIVAND{e2 elre2 
IF-THEN statement. In this article we will show how this is done. °! OR e2 NOT(NOT(e1) AND NOT (e2)) 1 = (1=e1)s(1-—e2) 
el XOR e2 (el AND NOT(e2)) OR (NOT (e1) AND e2) €1*(1—e2)+(1—e1)*e2 
é : ‘ 4 ‘ e1 NAND e2 NOT(e1 AND e2) 1 —el*e2 
In the following discussion we will use ane to represent a logical el NOR e2 NOT(e1) AND NOT(e2) (1-e1)*(1-e2) 
expression, and other lower case letters to represent any old kind el EQV el (e1 AND e2) OR (NOT(e1) AND NOT (e2)) e1*e2+(1~e1 )*(1—e2) 
of expression. e1 IMP e2 NOT(el AND NOT(e2)) 1 —e1*(1—e2) 
el NIMP e2 e1 AND NOT (e2) e1*(1—e2) 
Notice the following “‘rules.”’ 
IF THEN 
e=0: l—e=] For example the phrase - 
e=1s ol —e=0 


IFaORb ... 
is equivalent to 
IF 1 —(l—e/)*(1—e2)=1 ... 


1 —e is always the “opposite” of e. If we think of as being equiy- 
alent to TRUE or FALSE then | —e is equivalent to NOT e; that is, 
NOT TRUE (FALSE) and NOT FALSE (TRUE). 


Remember also that any number multiplied by 0 is 0, and that any 


In many cases the resulting expressions can be algebraically simplified. 
number plus 0 is that number. 


It is also useful to use several LET statements rather than repeating the 
same sub-expression. An example — suppose we wish to set U to V if 


Now suppose we wish to write an expression which is equal toa ife 5 I : 
: petehe ; : X >= Y and X <= Z; and to set U to W if X <Y or X > Z. Here is a 
C > > 2 is zero. Here I d t: ‘ > 
is one and equal to b if e is zero. Here is how we do i i Short prose mia ehineene 
*, */] _ « 
pee 2) : 10 LET T=SGN(1+SGN(X+Y))*SGNC1-¢x-z)) 
Suppose we wish to set X to the value of this expression. The following « 26 LET UsVeT+W*(1-T) 
two BASIC programs do this in different ways : Asa matter of fact, using a little algebra, we can write the whole thing 
: in one line — 
PROGRAM 1 PROGRAM 2 fs 16 LET U=(V-W)*SGNC1 +SGNC(X=Y) )*SGNC1-SGNC(K-Z) ) +W 
16 IF E=1 THEN 46 PROBLEMS (in order of increasing difficulty) 
16 LET X=A*E+B*(1-E) 20 LET X=B : 
26 wee 38 GO TO Se I. Write an expression which sets Z to MAX(X,Y). 
ae LET X=A 2. Write an expression that sets U to V if X < Y and sets U to W if 
eee 


X< Y AND X < Z. 
3. The “rule” 
X=Y : 1/(X+Y) 


Clearly Program No. | isa lot simpler. 


If we want a variable to haye a certain value if something is true and 


is equivalent to 


a Pa wes og oe 80s 008 eMee 2 oe tes oc acas 


another value if it is false, then in MOST cases we can use a logical P X<>Y¥ = 1/(X—Y) 
expression instead of an IF-THEN statement. : has to be done with IF-THEN — why? Think up some more “rules” 
Aeon ‘ f ; irs bE ich can’t b formed with a logical e; ion. i 
The rest of this article will be devoted to showing how to write logical i es ore eget ahve ee Fee Can you find 
expressions for the usual sorts of “‘if’s.”’ First we will consider what : away, f 
are called “relational expressions,” that is, those involving =,<,>,<=, ‘It 4 Without using the MOD operator, write an €xpression which is TRUE 
>=and <> (or +). Here is a table giving the relational expressions and 4 if an odd number of e’s in the set {e/, e2, e3 }are TRUE and FALSE 
their equivalent logical expressions. f if an even number are TRUE. 
RELATIONAL LOGICAL ; } Hint: Explore the properties of XOR. 
EXPRESSION EXPRESSION 1 Boe Gy Logical expressions can only “select” one of two values. Write an 
=] | — ABS(SGN(p -q)) : : “illogical” expression which “selects” one of three values according 
Se ‘ 1 — SGN( + SGN(p-q)) : : to the following rules. 
p>q 1 — SGN(1 — SGN(p-q)) ‘I Ee) EET 
p<=q SGN(1 — SGN(p—q)) it X=Y:b Hint: Think about quadratics 
p>=4q SGN(1 + SGN(p—q)) I X<Y:c¢ 
——— se A ESISGNG 4) : ' 6. Can you think of a general class of “selection” expressions which 
For example, the phrase a: picks one of N values? Describe this class. Hint: Think about 
; he Problem 5. 
Ne lees We Ge Cin you generalize the logical operators to get some operators 


“IF ABS(SGN(p—q)) = 1...” 


which “make sense” to use in combining “selection” expressions? 
Hint: Think about matrices 


~ ee 


PO*IT*VOURSELFE * 


ERE ARE SOME EXAMPLES 
ae PICTURES WE MADE. 


Now IT‘S YOUR TURN: 
ND THE HURKLE AND DRAW 
x A PICTURE OF IT. (SEE p.22) 


2.WERITE A PROGRAM WHICH 
ORAWS A DIFFERENT 
PICTURE EVERY RUN. 

WHICHEVER YoU Do, SEND 

THE RESULT To US. IF WE 

LIKE TT WE wWite: 

4. PRINT IT IN THE NEXT 
“ISSUE OF P.c.c. 

2. SEND You EXTRA COPIES 
To SHOW YOUR FRIENDS. 
3. GIVE You A FREE SUGBSCR- 
IPTION Te A c.c. 
4. MAIL You A SPECIAL 

SURPRIE / 


x Z 
4 . t) oe 

e (age i | 

« ra On es | kkk | 

| | 2K 2K OK KOK kK 

OK 2k ok a ok ok 

are e FHAKKAK FOR AO KK 

FI i ok ok ak 


KK 
2 KK OK 2k Ok 
OK AK OK 
KC OK AK 

2k KK OK ok ak 3k 

OK AK ok kok ok 
IO «| 
FORK tk | 
FOIA I «| 

KOK IKK kk 

AK kk 


mach jnes 


OF the 
future.» 


Salvador Dali 


**KOOK Kk KOO am 

Q **k OO KOOk «Og 

O kk OB* ¥O0k «20 wax Q 
**Q * OOK Kk KORE 2 Qax 
* Ok BD *O ** ** Dk O #0 * 
* *OOx * Cf * x *OOx * 
xk *Q x * * * x * Ox *x 
Ox x *k * OK x * *Ox 
00° * oi x00 

* * tok x ok 


oe 
weeees 
AAA rr 


“Another a anonyr 0. A 
ook SLL elped S put the finishing’ iat 
out Fane That if 5 : 
have to guess about what he or she 
_ posed to learn and be tested on. 
‘objectives specify particular ob seria Wiley Bags! : oe Pre > exten 
behaviors which the learner must bey : meaning (at ws ; : fen chapt j well as general Ralppiis 
to demonstrate after having worket e kin 7 dit Its he eal Have received 
the instructional | program in the 1 Us , ore. , for bis op 
specified. Here is what we specifi 


With the programmed instruction ff 
SEAT you'll be actively involved in lea 
' BASIC. The material is presented i 

short numbered sections called fr: 

each of which gives you a questio’ 

you to write a program. Correct an 

are giyen below the dashed line. Fo 

best results, we urge you to take pei 
pencil m hand and to use a piece 
paper or cardboard to keep the ans} 
out of sight until you have wnitten 
answer in the space provided. Th 
tions are carefully designed to call Yo 
attention to important points in ae 
examples and explanations, and to} 
you learn to apply what is being ex 
plained or demonstrated. 


3% 


I assign chapters to hig 
0 before coming to the 
ompiuter Center workshops, and — 
haveiresponded enthusiasticall 
h which they get into pro 
looking fonvard to re- 
is, criticis sand comments from — 
st ents an teachers on the content and — 
good ways to use this book, and we hope 
to pass on such: ‘comments through the 
~ pages of PCC 


D ni e 
takes in programming as wellas BASIC In contrast (again) to f¥ 
notation and format could assumed. [JKES ME and PCC, 


of short programs and RUN. 
reader get a feel for the int 


lisher required that it 


Now, understand that this book t: between Teaching Guides unin 


re you RUNalprogram using file commands you must creaté ordes oft names int © FILES statement determines how ¢! 
f) EN, Since OPEN is a system command’ referenced later in the program athe file named ZERO will whee ; 
ced file Jinithe pro ; aa 


The following material is 4 
Chapter 10 of BASIC, red 
actual 7”’ x 10” page size. 


referenced as file 1. oe 
will’ prepare the computer to! Use files : 


men 
named GRADES and MASTER. 


. res =. = - -- = = 3 & : . a na ee 
Files _ : sean pg 10 FILES GRADES, MASTER 


6 A serial file READ statement permits reading data from an existing file. 
The gencral form is shown below: 


you may not find useful right 3 Which of t HTojlowi 
forthe males and ee that follows out [rules? i ‘ READ # (file number) ; (variables) 


ibe fully understood. We EYESORE 


b 
The use of BASIC files is an advanced concep 
away. How and when to use files is difficult| 
muy find this chapter takes two or three rea it 
suggest that you read this chapter once now to; general idea of what 
files are all about. Then after you do some more Bi programming and »3 
are comfortable with computers, come back ands duly rote this 
chapter. 


* write data onto serial and random “— using FILE PRINT 
statements. 


statements. 
. 4. The amount ; 
use the following file commands with ae id random access files. aio ie Hea ep Pron thea onthe ties Thestze oh he fie 3 rite a Rtatement that will read three 
FILES IF END TYP P. from computer focomputer. In some computers you determine thi { 
the file, in others Ban opened file has a fixed size. (Consult your compute: 
1. Files are used fo store numeric data ands String variables for use at any manual fo find ov how the file size is determined.) - 
time. Up to now you have had [0 enter yo Mata using DATA statements File size i sured in units called words Data written ona fi 
as part of your program. Using files, you canient and store large quantities up file words as 
of data using one program and then access t Sin Liter time using a ‘ 
different program. You can access the data orf 
programs, something you have been unable tod 
One way to look at the file is to imaginé et 
the BASIC program. Programs are used to read from 
In an application that uses a file to hold all a i fos 
for the student body of a school, we might have rwhole serieso 


all using one file. String variable = 100 x 20 = 2000 characters 
= 2000 x 4 = 1000 words of file space SORREAD XI 5328 


v 


for the file number in a file READ 


PROGRAM 1 ENTER NEW DATA FOR STUDENT 


PROGRAM 2 DELETE STUDENT DATA _ A file that will contain 100 numbers will use; If in a previous statement, X has been calculated as equal to 2, the statement 
PROGRAM 3 CHANGE NAME OR ADDRESS OR 100 x 2 = 200 words SCS the second file in the FILES statement. The string 

PHONE - 2 f varia and the numeric variable (B) will be read each time Line 20 is 
PROGRAM 4) PREPARE NAME AND ADDRESS FILE Calculate how many words each of these sets of data will fill in a serial file. executed, 


Which file will be read in the following: 


LABELS FROM FILE DATA TB (a) 140, 15-character names 
PROGRAM 5 PREPARE ZIP CODE LISTING 
FROM FILE DATA (b) 140, 20-character addresses 10 FILES PHONE» MASTER, ZERO 


PROGRAM 6 PREPARE PHONE LIST FROM (c) 140, S-character zip codes (string variable) 20 LET Ye3-1 
FILE DATA 30 READ ¢Y3 AS.B 
(d) 420 numbers (representing responses to an opinion poll. Responses 
One advantage of placing data into files instead of using DATA statements is areil; 2, oF 3.) 
aoe = 
Sat a ll (a) 140x 1S x 4= 1050 
(b) 140 x 20x %= 1400 
i You can access the data with more than one program. (c) 140x Sx 4=350 
i (d) 420 x 2=840 
ee : BASIC 
2 Later we will explain the use of serial files and random access files. a 
This first section will deal only with serial files. 5. At the beginning of a program tliat uses files you must include a state- By Albrecht, Finkel and Brown 
oe Information stored in a serial file can be viewed asa continuous series = ment which fells the computer which files are to be used by the program. John Wiley and Sons, Inc. 
of data packed densely in the computer memory. * The files statement looks like this: 605 Third Avenue 
 GEORGE/YOUNG/25/94191/B0B/HARR|S/42/83107/... WOMRILESstaniesdcicosizEne New York, N.Y. 10016 
To get fo data, ‘in the middle of a serial file you must read from the besianing 4 325 pages, 1973. 
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{ CY Last time I talked about Edu 10 and Edu 20 and how to get from 
3 Edu 10 to Edu 20 and the cost of adding TTYs and stuff like that. 


This time I'll start by giving you a handy do-it-yourself kit consisting 


i (J y rN () of excerpts from DEC’s price list. 


INST* MONTHLY 


iD # DESCRIPTION PRICE CHG MAINTENANCE 
PDP8E—BA Computer, 4K memory, TTY 4490 — 60 
control 
€ () Ws ] S | € PDP8E—BE Computer, 8K memory, TTY 5650 es 80 
control 
MC8—E 4K memory. Required to 2750 150 20 
z expand from 4K to 8K 
: MM8—E 4K memory. This one gets 2500 150 20 
O.K. Here is how you build an Edu 10 or a one user Edu 20. Hels ee OF, 
MC8—EJ 8K memory. Required to 4150 175 40 
Edu 10 One User Edu 20 expand from 4K to 12K 
© PDP8E—BA $4490 e PDP8E—BE $5650 MM8—EJ 8K memory. Gets you from 3900 175 40 
e MI8—EF 500 e MI8—EF 500 8K to 16K in one neat jump 
e LT33—DC 1620 e KP8—E 250 KP8—E Power fail/restart 250 60 2 
© Software 250 e L1T33—DC 1620 MI8—EF Hardware bootstrap 500 60 5 
e Textbook Kit 100 e Edu 20 Software 250 LT33—DC Teletype Model ASR 33 1620 120 30 
$6960 © Textbook Kit 100 modified to work with PDP8 
$8370 KL8—E Interface card for TTY 300 60 10 
Now here are four ways to get a4 TTY Edu 20 with 8K memory. *This ts the charge for installing additional equipment on an existing system. 
(1) Buy an Edu 10 this year and next year expand to an 8K Edu 20 
with 4 TTYs. 
e Edu 10 6960 
© MC8-—E + installation 2750 + 150 
© KP8-—E + installation 250 + 60 
¢ 3.L133-DC + installation 4860 + 360 
e 3KL8-E + installation 900 + 180 
@ Edu 20 software baer 200 be erect 
15970 750 
Total cost $16720 


(2) Buy a one user Edu 20 with 8K this year — next year expand to 


4TTY’s. 
© One user Edu 20 with 8K 8370 
e 31733-DC + installation 4860 + 360 
© 3KL8-E + installation 900 + 180 
14130 540 
Total cost $14670 


Next — let's look at more memory. First, suppose we buy a 16K 
Edu 20 with one TTY. 


(3) Buy a4 user Edu 20 with 8K this year. 
e Edu 20 with 8K and 1 TTY 8370 


© PDP8E-EJ 5650 
e 3LT33—DC 4860 ° MM8-EJ 3900 
e 3KL8-E __900 © Hardware bootstrap 500 
Total cost $14130 © Power fail/restart 250 
® LT33-DC 1620 
(4) Buy an 8K Edu 20 with one TTY from DEC and buy 3 TTYs © Edu 20 software 250 
from someone else.* © Textbook kit 100 
© Edu 20with 8K and 1 TTY 8370 toralicost 2270 
© 3TTYs from someone else* 3450 You can now add on TTYs — up to 8 of them with the 16K version of 
© 3KL8-—E from DEC 900 Edu 20. Or you may prefer using Edu 21 software which provides 
Total cost $12720 


modest string capabilities. 


We will, in turn, look at another way to get a 16K Edu 20 or Edu 21 
with one TTY. 


& E) ©) © Start with Edu 10 6960 4K 
° 


Add on things at later times 


$16720 $14670 $14130 $12720 KP8-—E + installation 250 + 60 
MC8-E + installation 2750 + 150 8K 
*We got thisprice from Data Terminals Corporation. $1150 for anew ASR 33 MMB--E + installation ety ty LEAS 
TTY modified so taht it will work on a PDP8E. Or you can get a rebuilt ASR 33 MM8-€ + installation 2500 + 150 16K 
for PDP8 from DTC for $850. For more information, contact Data Terminals Edu 20 or Edu 21 software 250 
Corporation, P.O. Box 5583, San Jose, CA. 95150. Phone (408)378-1112. 15210 + 510 
Total cost $15720 
P, i i ! ’ Sis 
ete ey I'll leave other possibilities to you — like going from 4K to 12K then 
out during power failures or temporary to 16K or from 4K to 8K then to 16K and so on. 
brownouts or when someone trips over In the meantime, I’ll rest up f eee aries 4 
ile power condi You just weatstt when ; st up for the next issue of PCC when I’ll talk 
power is OK again — otherwise, you usu: about EduSystem 25 and maintenance and . . . what do you want to 


ally have to reload the software. know? Write a letter! 


ft 


BE BURKLE IS A HAPPY BEAST — 


Hurkle? A Hurkle is a happy beast and lives in another galazy BO OULMANTTETAULE SHC eveeiian esa x 
ona planet named Lirht that has three moons. Hurkle are ‘A HURKLE IS HIDING IN A GRID» LIKE THE ONE BELOW. ant |? 
favorite pets of the gwik, the dominant race of Lirth and... maar Be of? 


well, to find out more, read “‘The Hurkle is a Happy Beast”’ : 
in a book called AWAY HOME by Theodore Sturgeon, 
published by Pyramid Publications, 444 Madison Avenue, 


9 . 

8 . 

7 . 
6 ‘eise . 
New York, NY 10022. (Unless they have moved since ae 5 cee ‘Ge 
January, 1968.) 3 Eteea ited se moses 
all LJ lint: Done SoBe Boe 
SRY = @123456789 


S ; { } | { . . { ( SOUTH 
o 
7) TRY TO GUESS WHERE THE HURKLE IS HIDING. YOU GUESS 
BY TELLING ME THE GRIDPOINT WHERE YOU THINK THAT 
CR ‘toate a anapohot of a happy THE HURKLE IS HIDING. HOMEBASE IS POINT 98,40 IN 
THE SOUTHWEST CORNER. YOUR GUESS SHOULO BE A PAIR 
e OF WHOLE NUMBERS» SEPARATED BY A COMMA. THE FIRST 
vvadiatin hivcble but the Camara NUMBER TELLS HOW FAR TO THE RIGHT OF HOMEBASE AND 
IF ) - THE SECOND NUMBER TELLS HOW FAR ABOVE HOMESASE YoU 
: z THINK THE HURKLE IS HIDING. FOR EXAMPLE, IF YOU 
ehiche poarad him ond THINK THE HURKLE IS 7 TO THE RIGHT AND 5 ABOVE 
Over ose HOMEBASE. YOU ENTER 725 AS YOUR GUESS AND THEN 
PRESS THE 'RETURN’ KEY.» AFTER EACH GUESS, I WILL 
TELL YOU THE APPROXIMATE DIRECTION TO GO FOR YOUR 
NEXT GUESS. GOOD LUCK! 
THE HURKLE IS HIDING - YOU GET 5 GUESSES To FIND HIM. 


WHAT IS YOUR GUESS? 5s5 
GO NORTHWEST 


WHAT IS YOUR GUESS? 3.47 
GO SOUTH 


WHAT IS YOUR GUESS? 3.46 \ 
pucky" 


YOU FOUND HIM IN 3 GUESSESIII 
LET*S PLAY AGAIN.» 


THE HURKLE IS HIDING = YOU GET 5 GUESSES TO FIND HIM. 


WHAT IS YOUR GUESS? 


188 REM @** HURKLE - PEOPLE*S COMPUTER COMPANYs MENLO PARKe CA 
118 RANDOM 

128 REM *** N IS THE NUMSER OF GUESSES ALLOWED 

130 LET N=#S 


148 PRINT “DO YOU WANT THE RULES (1=YES @=NO)"s To 

156 INPUT Z 

160 IF Z <> 1 THEN 49a Change pe P 
178 REM ees HERE ARE THE RULES s eo 
180 PRINT “A HURKLE IS HIDING IN A GRID» LIKE THE ONE BELOW." 

198 PRINT 

288 PRINT 

218 PRINT TAS(26)s"NORTH™ 

228 PRINT 


238 FOR K=9 TO @ STEP -1 

248 IF K <> 4 THEN 270 

258 PRINT TABC8)s" WEST ANITABC2B) 5%. 2 2 ow ww we ew EAST" 
268 GOTO 280 

278 PRINT TABCIASKITABCOEB DI. « «© & © ew ww we 

288 NEXT K 


298 PRINT 

388 PRINT TAB(260"3 12345 678 9" 

318 PRINT 

328 PRINT TAB(26)5"SOUTH™ 

338 PRINT { ST 
348 PRINT “TRY TO GUESS WHERE THE HURKLE IS HIDING. YOU GUESS" 0 Area 2 abc, Asfabes. / 
358 PRINT "BY TELLING ME THE GRIDPOINT WHERE YOU THINK THAT” . \1 5 .  ebe / 


368 PRINT “THE HURKLE IS HIDING. HOMEBASE IS POINT 96,9 IN" 
378 PRINT "THE SOUTHWEST CORNER. YOUR GUESS SHOULD BE A PAIR 
388 PRINT “OF WHOLE NUMBERS, SEPARATED BY A COMMAs THE FIRST" 
393 PRINT "NUMBER TELLS HOW FAR TO THE RIGHT OF HOMEBASE AND" 
480 PRINT “THE SECOND NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU" 
A1Q PRINT "THINK THE HURKLE IS HIDING. FOR EXAMPLE, IF YOU " 
428 PRINT “THINK THE HURKLE IS 7 TO THE RIGHT AND S ABOVE" 
4368 PRINT “HOMESASE, YOU ENTER 725 AS YOUR GUESS AND THEN" 
443 PRINT “PRESS THE "RETURN" KEYs AFTER EACH GUESS, I WILL" 
456 PRINT “TELL YOU THE APPROXIMATE DIRECTION TO GO FOR YOUR" 
468 PRINT “NEXT GUESS+ GOOD LUCK!" 

478 PRINT 

480 REM *** HURKLE *PICKS* A GRIDPOINT AND HIDES 

493 LET A=INTCIA@*RNDCB)) 

588 LET B=INTCI@*RND(B)> 


e Lin? —— 


Change the game — 


e First number is distance above and 
second number is distance to the 
right of homebase 

e Longitude and latitude? 

e Number the grid in rows and 


518 PRINT columns, like this 
$26 PRINT "THE HURKLE IS HIDING = YOU GET'INs"*"GUESSES TO FIND HIM.” 
538 PRINT 


548 REM *** GET A GUESS AND PRINT INFO FOR PLAYER 
558 FOR K=1 TO N 

$68 PRINT “WHAT IS YOUR GUESS") 

S78 INPUT XsY 

588 IF ABS(X-A)+ABSCY-B)=0 THEN 718 

590 REM e#* GO TO INFO SUBROUTINE 

608 GOSUB 768 


NORTH 


12345678910 


618 PRINT 1 OE eine itor een caren 
620 NEXT K 2 een 

638 PRINT Ox O ISS OF ON Ol OL ® 
648 REM *** HURKLE WAS NOT FOUND IN N GUESSES 3 Ci eee eaife one crtiaeees 
650 PRINT "SORRY, THAT'S" sNs"GUESSES." 4 

668 PRINT “THE HURKLE IS AT '"JAs"5"3B OO Oe: 0 20 Oo OMG 
678 PRINT 5 COCO ELON Geta 
688 PRINT “LET'S PLAY AGAIN." WEST 6 

698 GOTO 493 O00 0: O10 OOOO EAST 
786 REM #** HURKLE HAS BEEN FOUND! 7 OOO OS OL One 
718 PRINT 8 

728 PRINT “YOU FOUND HIM IN"Ks"GUESSESIII" O00 “OO. 0 O80 =O a6 
738 PRINT “LET'S PLAY AGAIN." 

740 GOTO 499 Z SNe ee See RO RE ei Ore OsIA C/I @ 
758 REM #¢* SUBXOUTINE! PRINT INFORMATION FOR NEXT GUESS 16 OO Oh Os OG Ee 
760 PRINT "GO "3 

778 IF Y28 THEN 628 

788 IF Y<B THEN 818 is h) SOUTH 

198 PRINT "SOUTH'' pase 1S 417 

888 GOTO 420 Home if you wis 


818 PRINT “NORTH'S 
628 IF K=A THEN 870 
838 IF X<A THEN bAU 
648 PRINT “WEST'S 
658 GOTO 870 

868 PRINT “EAST"S 
878 PRINT 

868 RETURN 

698 END 


320 +30 +630 
030 - 340+270 


After you've 


THINKING OF BUILDING A DOME? 


Drawing by ARTHURBERGER (Reprinted from WORKFORCE, Jan-Feb, 1973) 


TMPRINTINE 


read DOMEBOOK II ($4 from 


= 


TION FOR THOSE WHO 


R 
Ds ROR AY ERSONAL COST. 


A WAY TD SIRE 4 RETRIEVE INFORMATION 


THIS 6 A AMAE TEGINIQUE FER SURNG, ano REEKENUNG 
AND REIKAVING KECMAIOL {fo BED GUAN Od) 
GNHE PRINUPLE MLLUTRATED THE FIGURE Feito. ir 
WIRE 16 DIED. THe <ttap 4 FORTH Co WILL FAL OT. 
\E THE 41S)" aD reex a OLY aN Oe wat eee 
PREAD Vv ON THEM, THE COERATCH +4 eA 
if OF THE aS Re deel THE REST. Te MAIN UNA 
OF TIS STEN [5 TET NE CAN EASILY (Xb REFERENCE INERMATIN. 
TR EGMPLE, IF Bots tb REN OT HOE THE HRT HXE NY 
Ni Ghepd Tez Hip EUR Wid No Al Te oe Moe ser 
WOLD HAE KESUAZED IN 44 F KE NOT BREADS SEIND SepezNED 
Th (6 OlOUs HAT YU THRE CF INFORMTIN THAT Gi! Ge WRITTEN OL 
CARDS GN RE SIR 4 iesen TERM Hy THHNIQe WOU 
(ONIERSS FOR KEEPING THE GD> IN ORDER. 


WERE RE SRERM PREUTS BMED ON THO PRIA, BOT Te He FA ExPetayr. IO CARDS 
WORK ya AG HEL A ARE PEACH AIILABLE 4 ZARUE PNUHeD AT NOUR LolAL (QMPUPTION Cente. 
HORE “4 UM TINK O CHER Ue fot Tilo HAF BL AD GAHe? , OS ZTRILb (NICATION 
ON UA Aevines MM JeXAL HEA, STC (fea Ul ZRH IKE | AUK THe WIZE (N 
HL TWE GCF FAL IT. HAE Yo KL wo. 
4 CH Fi HAY: Wer 
»< From — de School spine no. 7 
Ze phyres aterials Exchange 
\Zol Stanyan Shey, 
San Francis<o B G4II7 


Shelter Publications, Box 279, Bolinas, CA. 
94924), you can have a computer do or 
check your calculations. Send the frequency 
and actual radius of your proposed icosa- 
alternate breakdown (not triacon) dome 

to Resourse One, 1380 Howard, San Fran- 
cisco, CA 94103, and they will send you 


VER THE MEDIA- 


>) 
SI 
- 
Ne 
© 
O 
~ 


KLY FOR THE COMPUTER COMMUNITY 
ETTS * 02160 * TELEPHONE (617) 332 5606 
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“lengths of struts 
“the axial angles 
“the central angles 
“the dihedral angles 
"the spherical angles 
Be sure to enclose $1 and a 


i 
stamped self-addresses envelope. a 
iN A IX 


x = axial angle 


Dihedralangle 
between panels 


Tw’ 
ad 


c= 


J frequency 
a face of the icosa. 


Name That Hit Tune! 
But Computer Can’t 


HOLLYWOOD, Calif. - Computers can 
create music, but they cannot determine 
What makes a hit record, according to 
Allen D: Allen. 

Allen, a composer and a research scien- 
tist, worked extensively with computers 


trying to find technical parallels among 
hit songs. 


“Initially I tried to find a correlation 
between melodies I like,” Allen said. 

“T took all the tunes — the chord struc- 
tures, tendency toward intervals, surprise, 
tempo, time signatures and all the other 
elements. There was’ absolutely no cor- 
relation between the songs I like. So | 
thought that maybe I’m weird. 

“Then we did a study with an IBM 1130 
computer, This was to find what hit 
tecords had in common, We used all the 
same factors (as for tunes) plus tone 
colors, instrumentations, lyrics, bottom 
or high end, etc. We could find abso- 
lutely no mathematical formula for a 
pleasing melody or a big-selling disk.” 


Joe and Robin the day they finished the frame for their 
dome. They built a two story house, the second story 
being a 30’ diameter 4-frequency dome with a 3/8 
sleeping loft inside. From Jerry Brown’s DOMEFILM, 
a 16mm color film documentary on dome building. 


MEDIA MIX 


An interesting newsletter entitled Media Mix: 
Ideas and Resources for Educational Change 
recently shuffled its way to the surface of the 
mess on my desk. It carries interesting reviews 
on films, filmstrips, publications and other items. 
Media Mix is published monthly, October to 
May at 145 Brentwood Dr., Polatine, I1l.,60067 
by Jeffery Schrank. One year subscription is 
$5, two year $9. Here isa sample item: 


Lifestyle 2000: Inquiry into the Future 
-... Schools are only beginning to 
recognize that a study of the future is a 
valid part of the curriculum. In response 
to this recognition a few companies are 
producing media material about the 
future. One of the best to come along 
so far is the Denoyer-Geppert filmstrip 
Lifestyle 2000. The sound filmstrip is in 
four parts, each about 80-frames in 10 
minutes. Each consists of an interview 
with a futurist-Hugh Downs, Paolo 
Soleri, Herman Kahn and Ray Brad- 
bury. The four segments, however, are 
economically placed on two rolls of 
film. The Hugh Downs segment pro- 
vides a gentle and general introduction 
to the study of the future paving the 
way for the mind-blowing ideas of 
Paolo Soleri. Soleri works mostly 
with young people in Arizona building 
his city of the future-a gigantic single 
building that serves as a total environ- 
ment. Herman Kahn talks of knowledge 
and the ability to control the future and 
Ray Bradbury delivers a kind of pep 
talk encouraging optimism. 

$30.60 from Denoyer-Geppert, 5235 
Ravenswood Ave., Chicago, | 60640. 
Also ask for their rapidly growing cata- 
log of filmstrips. 


Guindon 


“Any people anywhere, being inclined and having the 
power, have the r/ght to rise up, and shake off the existing 
government, and form a new one that suits them better 
This is a most valuable, a most sacred right--a right, which 
we hope and believe, is to liberate the world.”’ 

Abraham Lincoln 
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32 subseri tions start with 1st issue of school year 
$4 for 5 issues 
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